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ACTUALIDAD. EL IVA llega а la informática. Las casas de 
software hacen guerra de precios. 


GRAFICOS INTERACTIVOS. Iniciamos una serie destinada 
a explicar los funcionamientos matemáticos de los gráficos 
generados por ordenador. 


JUEGOS. Nuestra habitual sección de comentarios está 
dedicada este mes a dos estrellas recién aparecidas. El 
FAIRLIGHT de la nueva casa THE EDGE y el FIGHTING 
WARRIOR, secuela del famoso EXPLODING FIST y 
realizado por la misma casa, MELBOURNE HOUSE, 


CODIGO MAQUINA. El capitulo cinco de esta serie nos 
adentra en los manejos de las subrutivas, potentes útiles de 
programación. 


UN NUEVO OPERATIVO PARA EL SPECTRUM. 
Acabamos de describir las rutinas que componen esta 
ampliación al BASIC de la máquina. Con esto nuestros lectores 
amantes del código máquina ya pueden acabar el ensamblado 
del programa. 


TRUCOS DE PROGRAMACION EN BASIC, La ROM del 
ZX Spectrum ofrece muchas más posibilidades de las que 
normalmente se explican en los manuales y libros de 
programación. En este articulo se explican algunos de estos 
trucos, lo que permite realizar los programas mucho más 
fácilmente. 


QL MAGAZINE. En la segunda parte de los gráficos en 
SuperBasic explicamos el manejo de colores у el uso de la 
recursividad, También vemos el QL por dentro, con una 

descripción de cada uno de sus componentes. 


EL CORCHO, Nuestra habitual sección de intercambio entre 
los lectores ha aumentado su tamaño hasta ocupar toda una 
página. Esto se debe а la gran aceptación que ha tenido. 


BROS. Comentamos un libro de iniciación al BASIC y un 
avanzado texto sobre manejo de gráficos. 


PAUSED 


PROGRAMAS. Este mes las páginas de nuestra revista son 
ocupadas en gran parte por un estupendo programa de mus. 

їп queda espacio para un sencillo procesador de 
ue está hecho en BASIC, ofrece posibilidades 
esionantes. 


PREGUNTAS Y RESPUESTAS. 
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El Spectrum 128 ya está en el mercado. En la mayoria 
de los distribuidores de Investronica зе puede 
encontrar ya el nuevo ordenador de Sinclair, Pero no 
se puede decir lo mismo de los programas especificos 
para él; aunque esperamos que no tarden mucho. 


Se avecina una autentica guerra de precios en el 
software: Рог 10 visto los fabricantes de programaS 
no venden todo lo que quisieran y están decididos a 
bajar los precios todo lo que haga falta. Un ejemplo 
es SERMA, que a primeros de año lanza varios 
paquetes de programaS al atractivo precio de 2.500 
pesetas. 


Las ventas del QL aumentan. Esta noticia зе debe en 
gran parte a la espectacular bajada de precios que 
sufrió hace algunos meses. Esperemos que esto 
potencie las ventas de esta potente maquina. 


Con la entrada de España en el Mercado Común los 
precios de ordenadores y otros productos 
informáticos van a subir. Sin embargo esta subida 
será menor para los productos fabricados en España. 
Aquellos que estén pensando en comprarse un Spectrum 
128 están de enhorabuena. 
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š 5 Context V.8 + Copy Grises 72.000 
Fotografia digitalizada y pasada a impresora con el 
Copy de Grises. 
о mm е MS © mman о FEE о E mas 
TIENDA AL PUBLICO EN BARCELONA Enviar a: PIN. P° de Gracia, 11. Esc. С, 2°4° -08007 Barcelona 
PEDIDOS POR CORREO O TELEFONO Nombre 
Envios contra reembolso a toda España Dirección 
200ptas. gastos de envio P: 
En tu domicilio en 3-4 dias 1 Población 
Pedido 


GESTION 


$.1.Т.1. \.3 * 4.000 
Al comprar esta versión abonamos 3.000'-ptas рог cual- 
quier versión anterior. 

Context V.7* 

Tratamiento de Textos. 

Funciona con cualquier impresora. 
Cassette y/o microdrive. 64 col. en pantalla e mpresora 
Context V.8 * 


Nueva versión. Acentos graves y agudos 
Copy en alta resolución Versiones para Seikosha SP-800, 
SP-1000 y Riteman F+ 


Adaptador SITI-CONTEXT 2.000 
Permite pasar información del SITI al CONTEXT. 

M.D.S. -Sistema Operativo para 
Microdrive 7.000 


Conjunto de nuevos comandos BASIC que permiten Ac- 
ceso Aleatorio a Ficheros en Microdrive con un tiempo 
medio de acceso de 4 segundos 

CONTABILIDAD РІМ" 

Plan contable. 200 cuentas, 2000 asientos. 
Hasta 9.000.000 000. Balance con activo-pasivo. cta. re- 
sultados. Utiliza el S.O.M.D.S 

Cualquier impresora 80 col 

Kit Utilidades Discovery 1 2.000 
10 utilidades CAT extendido. ON ERROR, Set de caracte- 
res del Amstrad, etc. 


*Disponible en disco para Discovery 1 al precio de 
5.000'-ptas. 


3.000 


AJUSTE DE CABEZALES 
CASSETTE 2.500 
SINTETIZADOR DE VOZ 3.000 
MULTI-COPYS (Copys desde 2 cm. hasta 
70cm.) 3.000 
COPY GRISES (F+, SP-800, 

SP-1000, GP-550) 

COPY RS-232 

COPY SERIE RITEMAN F+ 


4.000 


4.000 
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HARDWARE 


Discovery 1 + Кії utilidades 55.000 
Discos 31/;” 800 
Cable impresora Discovery 3.500 
Interface monitor 3.900 
Interface sonito TV 3.500 
Interface Centronics 8.000 
Lápiz óptico + Sistema de dibujo 4.850 
Teclado Saga 1 11.000 
Impresora Riteman Е + 
(Centronics) * 69.000 
Impresora S-P 1000 
(Centronics) 74.900 
ог CIAEGI F. Verde 24.000 
tor CIAEGI F. Ambar 24.750 
NOVEDADES PIN 
Alimentación Ininterrumpida 9.750 


No se pierde la información por corte de luz o bajada de 
Tensión 130h deautonomía 
Recarga automática 


Digitalizador de Imágenes 

Р-1024 35.000 
Digitaliza cualquier imagen impresa у la introduce en el or- 
denador donde se puede tratar. (Tramar, mezclar, silue 
tear, etc). Muy fácil de usar 


* OFERTA ESPECIAL 
Impresora + Interface Centronics + 


AA 


Gráficos interactivos 


¿Estamos ante el arte del futuro?, es posible que así sea. El avance experimentado en el 
mundo de los gráficos por ordenador es impresionante, pero la metodología cientifica 
utilizada en su desarrollo logra que no sea un campo vedado exclusivamente a seres 
supersensibles, y que todo programador pueda obtener resultados brillantes, estéticamente 
hablando, incluso con el Spectrum. 


ntendemos por Gráficos por 
Ordenador, o «Computer 
Graphics» a la disciplina o 
ica que abarca la pro- 

cción de imágenes gráfi- 
cas con la ayuda de un ordenador. 
Esta definición es muy general y 
amplia, pero el campo de trabajo 
que permiten alcanzar los ordena- 
dores en cuanto a materia de gráfi- 
cos es prácticamente ilimitado, y 
la evolución que está experimen- 
tando esta técnica o arte es escalo- 
friante. Uno de los inventos re- 
cientes más populares es el de los 
videojuegos, y un ejemplo de estos 
es el Ping Pong, que aunque ahora 
nos resulta muy simple, y por qué 
no decirlo, obsoleto, hace muy 
poco tiempo nos dejaba boquia- 
biertos. Los simuladores de vuelo, 
ya asequibles hasta en el Spectrum 
y con una gran calidad, hace una 
década hubieran resultado impen- 
sables. 


¿Quién no se ha maravillado con 
las modernas películas de guerre- 
ros espaciales? Esas imágenes son 
gráficos producidos por un orde- 
nador, que es capaz de simular 
todo tipo de luces, sombras, bri- 
llos, transparencias. explosiones. 
saltos al hiperespacio, planetas, en 
fin, realidades futuras que hemos 
empezado a vivirgracias a los estu- 
dios de una serie de programadores 
y matemáticos que la tecnología 
digital ha experimentado en estos 
últimos treinta años. 


Otro ejemplo diario de aplica- 
ción de gráficos por ordenador lo 
tenemos en los titulares de televi- 
sión que se mueven y voltean so- 
bre la pantalla y que también están 
controlados por un ordenador. 
Para nosotros estos gráficos son los 


El joystick es el periférico de entrada más conocido, aunque по рог sus aplicaciones de 


diseño gráfico, sino en los juegos. 


pasivos, sólo podemos actuar 
como receptores, no tenemos acce- 
so a modificarlos, son técnicamen- 
te llamados «Gráficos no Interacti- 
vos». En contraposición, llama- 
mos «Gráficos Interactivos» a 
aquellos en los que los usuarios 
pueden controlar dinámicamente 
las imágenes a producir, el conte- 
nido, colores, etc. 

Los gráficos Interactivos envuel- 
ven una doble vía de comunic: 
ción entre el usuario y el ordena- 
dor. El ordenador recibe señales 
desde un dispositivo de entrada y 
reacciona lo más rápidamente po- 
sible, instantáneamente para la 
percepción del usuario, esta res- 
puesta llega al usuario a través del 
dispositivo de salida empleado ge- 
nerando o no una contrarrespuesta 
por parte del usuario que cierra el 
bucle. Este es el esquema generali- 
zado más simple que explica la 
forma en la que se establece el diá- 


logo entre programador o usuario 
con el ordenador. 


La importancia de este campo 
no sólo está en los videojuegos. Los 
gráficos por ordenador tienen una 
aplicación importantísima en la 
industria. El diseño de circuitos 
electrónicos digitales, por ejemplo, 
es muy complejo y un ordenador 
puede  facilitarlo enormemente, 
permitiendo incluso que puedan 
ser verificados por el ingeniero so- 
bre el propio plano utilizando pro- 
cedimientos de simulación. Los ar- 
quitectos pueden «visualizar» los 
resultados de sus diseños con pers- 
pectivas cambiantes de manera 
mucho más rápida. Los urbanistas 
y expertos en tráfico pueden simu- 
lar situaciones y ver cómo se pue- 
den solucionar. Los ordenadores 
nos pueden crear un mundo que se 
puede comportar como el nuestro 
y sobre el que podemos experi- 
mentar cualquier tipo de problema 


por ordenador 


Una alternativa barata del tablero 
talizador es el lápiz óptico. Aunque no 
permite resolución tan amplia 


o de solución y «ver» los efectos 
que producimos sin necesidad de 
crearlos realmente. 


La historia 


Pero, ¿cómo surgió todo esto? 
Como todo en esta vida, el desa- 


rrollo de estas técnicas ha requeri- 
do muchos años de investigación y 
estudio. En los años cincuenta se 
realizó el primer dispositivo gráfi- 
co controlado por ordenador, era 
un osciloscopio conectado al 
Whirlwind І del Massachusets Ins- 
titute for Technologie (MIT) y fue 
utilizado para generar dibujos sim- 
ples. Durante esta década los gráfi- 
cos interactivos hicieron pequeños 
progresos porque los ordenadores 
de este período no eran utilizados 
para estos fines sino que se limita- 
ban a ser «comedores de números» 
que permitían realizar cálculos a 
físicos y a ingenieros aeronáuticos 
para diseñar misiles. Al final de la 
década se desarrollaron los MIT 
TX 0 y TX 2 que hicieron factibles 
los gráficos interactivos con lo que 
el interés en este campo creció rá- 
pidamente. 

El hecho que produjo el gran 
boom en este campo fue la tesis 
doctoral de Ivan E. Sutherland en 
1962 titulada «Sketchpad: A man 
machine graphical communica- 
tion system» que era un paquete de 
programas que probaron a muchos 
lectores que el campo de los gráfi- 
cos interactivos era variable, utili- 
zable y apasionante. 


En la década de los sesenta se de- 
sarrollan grandes trabajos en este 
campo, en particular se desarrolló 
el CAD cuyas siglas significan «di- 
seño asistido por ordenador», en 
empresas como General Motors, 
Bell Telephone, y Lockheed Air- 
craft, y comenzó la edad de oro 
que hoy disfrutamos. 

Las utilizaciones actuales más 
importantes en gráficos interacti- 
vos son: representación de datos y 
resultados científicos, económicos, 
financieros, estadisticos... carto- 
grafia, animación y simulación, 
etc. En general cualquier progra- 
mador que quiera realizar progra- 
mas impactantes sobre el usuario 
debe recurrir al uso de gráficos in- 
teractivos, ya que ahora no basta 


con los ordenadores «comenúme- 
ros». 


El hardware 


Los gráficos interactivos por or- 
denador requieren un soporte fisi- 
co en el que realizarse, terminal de 
visualización, salidas en papel y 
entradas interactivas. A todos estos 
dispositivos se les denomina hard- 
ware y vamos a describir los dispo- 
sitivos actualmente existentes pa- 
rándonos especialmente en los que 
tenemos asequibles para el Spec- 
trum. 

En los sistemas de hardware po- 
demos diferenciar entre las salidas 
gráficas y las entradas interactivas. 


Dentro de las salidas gráficas, la 
más usual es el tubo de rayos cató- 
dicos CRT, en cualquiera de sus 
formas, raster, refresco, almacena- 
miento, etc. Un esquema clásico 
de un sistema gráfico interactivo 
basado en el CRT puede ser el si- 
guiente. El ordenador va conecta- 
do a una unidad de proceso de vi- 
sualización, también llamado 
DPU (Display Processing Unit) 
que es como otro ordenador espe- 
cializado, con su propia memoria 
la mayor parte de las veces, que 
acepta una serie de comandos y 
ejecuta una serie secuencial de ins- 
trucciones, tales como trazar un 
segmento, dibujar un caracter. 
Hay dos formas en las que la DPU 
trabaja, el «randon scan» con el 
cual se accede a cada punto des- 
pués de hacer un barrido línea a li- 
nea de toda la pantalla. 


El modo «random scan» es tam- 
bién llamado vectorial y el «raster 
scan» es llamado simplemente 
raster y es el que implementa el 
Spectrum y por ello vamos a ha- 
blar un poco más de él. 

Los terminales raster necesitan 
una memoria auxiliar donde alma- 
cenar los datos de la imagen, aun- 
que en el Spectrum la memoria no 
es auxiliar ya que no se dispone de 


Gráficos interactivos por ordenador: 


un «coprocesador» sino que es el 
mismo microprocesador Z80 el 
que se encarga de realizar el trab: 
jo de la DPU. La memoria se codi- 
fica como una matriz de puntos en 
la que un cero significa blanco y 
un uno significa punto. La imagen 
se repite un número determinado 
de veces. que oscila entre 30 y 60 
veces por segundo. Esta codifica- 
ción puede ser rehecha para au- 
mentar determinadas informacio- 
nes de brillo o color aunque en el 
Spectrum no se contempla esta po- 
sibilidad. Terminales raster de 
hasta 1.024 x 1.024 puntos son ac- 
cesibles con relativa facilidad pero 
terminales de más puntos ya tie- 
nen problemas de refresco, es decir 
de falta de velocidad para que se 
mantenga la luminosidad del рип- 
to durante el tiempo que dura el 
barrido del resto de la pantalla. 
Por ahora este problema es crítico 
ya que si utilizamos pantallas de 
fósforos muy persistentes el borra- 
do sería dificultoso. 


Los terminales raster se abara- 
tan de manera creciente, se permi- 
ten además colores, niveles de gri- 
ses, etc., y se consiguen imágenes 
mucho más realísti El nivel de 
complejidad de la imagen no in- 
crementa el parpadeo (lo que era el 
inconveniente más grave de los 
terminales vectoriales). permite 
borrados parciales. etc., por eso se 
han convertido en los terminales 
más usados en poquísimo tiempo y 
no resulta una frivolidad el decir 
que están de moda en esta década. 


Las posibles alternativas CRT 
son los «Plasma Panels» en los 
que cada pixel consiste en una cel- 
dilla de gas con unos electrodos 
que pueden ser puestos a cero o a 
uno aplicando una tensión a los 
electrodos que no excedan o exce- 
dan a un determinado nivel crítico 
respectivamente. Estos terminales 
son de brillo atractivo, general- 
mente rojo y negro que permiten 
redes de alrededor de 1.000 x 1.000 


аа RI 


puntos y que ya están en el merca- 
do. 

Los terminales de cristal liquido, 
comunes en los relojes digitales, 
pueden ser dispuestos en forma de 
matriz y constituir un terminal 
raster pixel por bit. Con diodos 
LED pueden obtenerse configura- 
ciones similares. 

Antes de abandonar estos tipos 


muy utilizadas para microordena- 
dores definiendo los caracteres 
como matrices de puntos, estas im- 
presoras son las llamadas «APA», 
АП Point Adressible. es decir, con 
acceso a cualquier punto, que per- 
miten su utilización como raster 
utilizando sus mismos algoritmos, 
e incluso creando niveles de gris 
con técnicas de «halfioning». 


E 
considerarse como uno de los dispos 


de sistemas gráficos con terminales 
raster debemos decir que próxima- 
mente veremos el funcionamiento 
del Spectrum como salida gráfica 
al estudiar el funcionamiento de la 
memoria gráfica, del ULA, etc. 

Otro tipo de salidas son las no 
interactivas, que son las impreso- 
ras, los plotters, e incluso otras más 
sofisticadas que producen films e 
incluso hologramas. 

Las impresoras fueron utilizadas 
en principio de modo gráfico para 
obtener dibujos de escasa calidad y 
precisión. Funcionan de modo si- 
milar al raster y con técnicas de so- 
breimpresión se pueden obtener 
tonos de gris. Actualmente son 


Koala Pad es una atractiva versión de un tablero digitalizador de bajo precio y puede 
¡vos más útiles para realizar dibujos. 


Los plotters son dispositivos que 
se asocian a tipo vectorial, normal- 
mente son de plumilla y son los 
dispositivos que dibujan los pla- 
nos. 


Dispositivos de entrada 


Los dispositivos de entrada son 
los que permiten al usuario intro- 
ducir las órdenes, relacionadas con 
la imagen, en el sistema. Hay mu- 
chos tipos de dispositivos que per- 
miten esta introducción de órdenes 
por lo que sólo nos vamos a limitar 
а enumerarlos y dar una breve des- 
cripción de funcionamiento. Loca- 


lizadores, permiten indicar una 
posición o una dirección sobre la 
imagen del terminal gráfico, entre 
ellos citaremos: 


— Las tabletas digitalizadoras. 
que consisten básicamente en una 
superficie plana sobre la que se 
mueve un cierto apuntador, que 
puede ser una lupa con cursor o un 
lápiz, y a veces algunas teclas. Si el 
sistema está equipado con un lá- 
piz, cuando este es apretado contra 
la superficie plana la localización 
de este punto es transmitida al or- 
denador marcando o borrando di- 
cho pixel. Si el sistema mueve una 
lupa con cursor se suelen utilizar 
las teclas para transmitir su posi- 
ción. En aplicaciones interactivas 
gráficas, es normal el transponer la 
superficie plana a la pantalla y re- 
presentar como un aspa la posi 
ción del cursor sore la visualiza- 
ción gráfica sobre la que estamos 
trabajando. Se emplea comúnmen- 
te en cartografía, medicina, etc. El 
ratón, о «mouse», actualmente 
está de moda y sistemas de este 
tipo están empezando a aparecer 
para el Spectrum. Este es un dispo- 
sitivo manejado manualmente por 
el usuario y mediante el cual pode- 
mos mover un cursor sobre la pan- 
talla visualizadora. El movimiento 
es detectado por medio de unos ro- 
dillos que llevan acoplados unos 
potenciómetros. la tensión sobre 
estos potenciómetros es digitaliza- 
da y así se determina la magnitud y 
sentido del movimiento. El auge 
de los sistemas tipo ratón es muy 
importante y de hecho hay una 
empresa que ha lanzado su último 
ordenador recientemente y que la 
campaña de publicidad que han 
realizado ha consistido en decir 
que lleva incorporado un ratón (el 
Apple Macintosh). 


— Los «trackballs» son unos 
dispositivos que consisten en una 
esfera que el usuario puede hacer 
girar sobre su centro en cualquier 
dirección. Al girar la esfera me- 


diante unos potenciómetros y de 
manera similar al ratón detecta los 
movimientos del cursor y los re- 
produce sobre la pantalla. Este sis- 
tema está cayendo en desuso ya 
que aunque sea muy preciso para 
pequeños movimientos es muy 
lento para grandes desplazamien- 
tos, por ello los joysticks están 
ocupando este espacio. 

— Los «joysticks» que son sim- 


Los gráficos 

interactivos 

por ordenador 

requieren un soporte físico 
(Hardware) 


plemente una palanca que puede 
moverse según cuatro u ocho di- 
recciones según el modelo. El mo- 
vimiento puede ser detectado me- 
diante unos potenciómetros de 
manera similar al ratón o de cual- 
quier otra manera. Hay dos tipos 
de joysticks, los de posición abso- 
luta y los de posición incremental, 
El de posición absoluta coloca el 
cursor a lo alto de la pantalla 
cuando se mueve hacia adelante, y 
lo sitúa en la parte inferior de la 
pantalla cuando se mueve hacia 
atrás. El posicionamiento es muy 
rápido y por consiguiente muy di- 
Пей de apuntar. El joystick incre- 
mental es como su propio nombre 
indica de funcionamiento іпсге- 
mental, es decir, que a partir de la 
posición que ocupa dependiendo 
de hacia dónde desplacemos la pa- 


lanca moveremos el cursor. Ac- 
tualmente ha surgido un joystick 
hibrido que mediante una tecla 
puede funcionar o como absoluto 
о como incremental conjugándose 
asi las ventajas. Para los Spectrum 
tenemos bastante variedad de jovs- 
ticks en el mercado. 


— Otro tipo de entrada interac- 
tiva muy sofisticado es la Tableta 
Digitalizadora Tridimensional 
cuyo funcionamiento es idéntico 
al de la bidimensional pero en lu- 
gar de detectar la posición median- 
te tensiones sobre potenciómetros 
utiliza ondas sónicas. 


— Los «selectores» son disposi- 
tivos con los que. mediante un lá- 
piz luminoso podemos seleccionar 
una opción entre varias que se 
muestran en la pantalla, Estos sis- 
temas están pensados para que el 
diálogo interactivo sea más senci- 
llo y no se requiera personal espe- 
cializado para realizar un trabajo 
más sencillo, 


— Los sistemas de «Elección 
Numérica» son aquellos en los que 
seleccionamos un número entero 
positivo y se usa para elegir entre 
varias opciones en las que cada 
una tiene asignado un número. El 
sistema que permite la elección 
puede ser cualquiera aunque lo 
más normal es utilizar el teclado. 
El teclado es utilizado cuando que- 
remos que la entrada sea una «ca- 
dena de caracteres». Un ejemplo 
muy sencillo de este Про de entra- 
da es cuando durante la ejecución 
del programa se nos presenta si 
queremos hacer algo y nos piden 
que contestemos «Si о No». 


— Lo más impresionante den- 
tro del campo de las.entradas inte- 
ractivas lo constituyen los recono- 
cedores de voz, que aunque hoy es- 
tén un poco alejados de la utiliza- 
ción práctica constituyen una po- 
sibilidad futura muy a tener en 
cuenta. 


FIGHTING WARRIOR 


Trasladados al antiguo Egipto 
nos encontramos con la maldad de 
un Faraón que haciendo uso del 
gran poder de que dispone ha se- 
cuestrado a una pricesa joven e in- 
defensa. Ante esta situación поз 
ofrecemos voluntarios para ir a 
rescatarla, sin más defensa que una 


espada y ciertos objetos abandona- 
dos en el desierto con poderes má- 
gicos, pero que no siempre nos ha- 
rán bien y que debemos averiguar 
cómo utilizarlos. 

Los peligros más importantes 
que se nos presentan son unos ani- 
males mitológicos, mitad hombres 
mitad dioses, que nos supondrán 
un serio obstáculo, impidiéndonos 
el paso. Además de estos tendre- 
mos que tener cuidado con unas 
enigmáticas flechas que debemos 
evitar si no queremos ver merma- 


das nuestras fuerzas. Nosotros dis- 
ponemos de una fuerza marcada 
en la parte inferior de la pantalla, 
debajo de nuestro guerrero, que 
vamos perdiendo a medida que re- 
cibimos los golpes, aunque des- 
pués de cada combate recupera- 
mos un poco, dependiendo del 
tiempo que tardemos en derribar 
al contrario. El punto de partida es 
el desierto, que tendremos que 
atravesar si queremos llegar al 
templo donde se encuentra la prin- 
cesa y donde nuestros problemas 
aumentarán de forma considera- 
ble. 

Los guerreros son de un gran ta- 
maño lo que permite que sy defini- 
ción gráfica sea' bastante buena y 
que tengan unos movimientos cla- 
ros y atractivos, aunque con el іп: 
conveniente de que son un poco 
lentos y resulta difícil controlar el 
tiempo en el que van a reaccionar. 
El juego encierra una gran dificul- 
tad, resultando más difícil derribar 
contrarios cuanto más avances en 
él, aunque al utilizar los objetos 
abandonados en el camino correc- 
tamente, te será mucho más fácil 
alcanzar el objetivo. 


FAIRLIGHT 


A primera vista te parecerá un 
juego como todos, pero éste difiere 
de los demás en que no te marca el 
objetivo a seguir, eres tú quien re- 
corriendo e investigando en la de- 
pendencias del castillo debes des- 


cubrir su misterio. Quizás esto te 
lleve mucho más tiempo del pre- 
visto pero no te desanimes, valdrá 
la pena buscar. 

El juego está realizado en tres di- 
mensiones y fue diseñado con una 


La pantalla de presentación del juego es una 
а de detalles y colores. 


La sala del trono, 
en la que nuestro 
héroe se enfrenta a 


un enemigo al que 
по puede derrotar. 


de las más avanzadas técnicas de 
programación desarrolladas hasta 
el momento, que le da gran realis- 
mo y claridad a los gráficos y mo- 
vimientos de nuestro héroe. 

El juego se desarrolla en el inte- 
rior de un castillo de la Edad Me- 
dia, cuya salas o lugares estratégi- 
cos están defendidos por guardia- 
nes armados, gigantes o fantasmas 
que tratarán de proteger el miste- 
rio, combatiendo contigo si inten- 
tas pasar. 

Esparcidos por todo el castillo se 
encuentras objetos dispares como 
llaves, comida, sacas de dinero, re- 
lojes de arena, etc., que podrás 
guardar en cada uno de los cinco 
bolsillos que tienes o utilizarlos si 
lo consideras preciso. 

El sistema de vida que utiliza es 
distinto a los demás juegos conoci- 
dos; en este dispones de 99 vidas 
que irás perdiendo con bastante ra- 
рег cuando seas atacado. Aun- 
que también podrás recuperarlas 
utilizando algunos de los objetos 
que encuentres, todos ellos tienen 
una utilidad especifica que deberás 
averiguar, aunque algunos no son 
lo que aparentan. 


Ya hemos visto cómo sumar y restar 
en código máquina utilizando múltiple 
precisión. Los programas que hacian 
esto eran relativamente pequeños y no 
ofrecían dificultad. El único problema 
es que si quisiéramos operar con una 
precisión superior a dos bytes, tendria- 
mos que hacer crecer el programa pro- 
porcionalmente, y en el caso de una 
suma o resta de 40 bytes, el programa 


Figura 4. 
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де! teclado 
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5! 
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restarle 32 al código 


+ 


imprimir caracter 


¿es ENTER? 


B НЕ] 


adquiriría proporciones descomuna- 
les. 

Pero nos podemos evitar este pro- 
blema usando subrutinas. Estas estruc- 
turas son similares a las subrutinas del 
BASIC y su manejo es básicamente el 
mismo pero a nivel de lenguaje máqui- 
na. Su uso nos permite que determini 
das partes de un programa que se repi- 
ten muy a menudo puedan ser escritas 
una sola vez y llamadas desde distintas 
partes del código principal. 

La instrucción que se utiliza para 
llamar a una subrutina (el GOSUB del 
BASIC) es CALL XXXX, donde 
XXXX es la dirección de dieciséis bits 
de la rutina (o su etiqueta correspon- 
diente). En dicha dirección debe en- 
contrarse el inicio del bloque de in: 
ігиссіопеѕ que queremos usar como 
subrutina. Al final de dicho bloque, en 
el lugar en que se encontraría el RE- 
TURN en un programa BASIC, se 
debe poner: КЕТ para que el control 
vuelva a la siguiente instrucción a la 
que realizó la llamada, Para aquellos 
que trabajen directamente en hexade- 
cimal, diremos que CALL es “CD” se- 
guido de los dos Әугез de la instruc- 
ción, y que ВЕТ es “C9” у no lleva 
ningún parámetro detrás, ya que el or- 
denador recuerda desde dónde se hizo 
la llamada (por medio de la pila que 
veremos más adelante). Una descrip- 
ción gráfica del flujo del programa se 
muestra en la figura 1, en la que se ve 
cómo desde una instrucción se llama a 
una rutina situada al final del progra- 
ma y al terminar esta el control se de- 
vuelve a la instrucción siguiente. 

Si se ha fijado en los pequeños lista- 
dos que hemos publicado, habrá visto 


que todos terminan en RET. Ello es 
debido a que los programas que escri- | 
bimos y que llamamos por medio del 
RANDOMIZE USR xxxx, son consi- 
derados como subrutinas por la propia | 
ROM del Spectrum, que los Пата por 
medio de un CALL y por tanto la vuel- 
ta se hace con RET. 

Un ejemplo de aplicación de las su- 
brutinas es el listado que publicamos 
en la figura 1. Este realiza la misma 
suma de dieciséis bits que vimos en el 
capitulo anterior pero usando subruti- 
nas, de modo que las sumas byte a byte 
se hacen siempre en el mismo sitio. 

El proceso detallado se puede dividir 
en dos bloques. En primer lugar vea- 
mos la subrutina, Esta coge el byte al 
que apunta IX y le suma el contenido 
de IX+2 más el acarreo; almacenando 
el resultado en IX+ y devolviendo el 
control por medio de un RET. Con 
esta subrutina el programa principal es 
muy sencillo. En primer lugar carga- 
mos en IX el valor 60501, que es la 
parte inferior del primer número a su- 
mar. А continuación ponemos el ac: 
rreo a cero. Esto se hace porque según 
indicamos, el byte más inferior se su- 
maba sin acarreo, pero eso era lo mis 
mo que sumar con acarreo 0, que es lo 


.que tenemos que hacer en este caso уа 


que la subrutina suma siempre con 
acarreo. La instrucción usada para 
esto es “OR А”. Aunque esto en ргіп- 
cipio pueda parecer extraño, tiene su 
razón de ser y es uno de los trucos más 
usados del código máquina del Z-80. 
El OR de dos bytes lo que hace es coger 
una a una las parejas de bits situadas 
en la misma posición y generar un ter- 
cer bit que sea uno si alguno de los dos 
anteriores (o los dos) es uno, y vale 
cero si los dos son cero. De modo que 1 
OR 1 es 1, 1 OR 0 es 1 y 0 OR 0 es 0. 
Aplicando a dos bytes, por ejemplo 
01011011 у 00110111, queda: 
01111111 al hacer la operación bit a 
bit. La operación del Z-80 OR A reali- 
za un OR del contenido del acumula- 
dor consigo mismo, y por una sencilla 
comprobación se comprueba que no 
modifica el contenido, pero pone la 
bandera de acarreo a cero, lo que resul- 


ta de gran interés para nuestros propó- 
sitos. 

Una vez inicializados estos dos pará- 
metros, llamamos a la subrutina, que 
sumará automáticamente el primer 
byte de cada número y guardará el re- 
sultado en sitio correspondiente. A 
continuación decrementamos IX por 
medio de la instrucción DEC IX. simi- 
lar en funcionamiento a INC HL, pero 
que en lugar de incrementar ese regis- 
tro de 16 bits, decrementa el ІХ (tam- 
bién de 16 pirs) en una unidad. Su 
equivalente hexadecimal es “DD 2B”. 
Al realizar esta acción, IX se queda 
con un valor de 60500, que correspon- 
de al segundo byte de la suma. opera- 
ción que se realiza inmediatamente al 
llamar de nuevo a la subrutina. En este 
caso el acarreo es el resultado de la 
suma anterior y no hay que tocarlo, la- 
bor que se facilita al no ser modificado 
por ninguna instrucción de las que 
usamos entre llamadas a la subrutina. 


Sumas con más bytes 


Esta idea que hemos dado para las 
sumas de números de dos bytes зе pue- 
de ampliar a números mayores. para lo 
que bastaría en principio con repetir 
las instrucciones de decrementado de 
IX y de llamado a la subrutina, Esto se 
hace en el listado de la figura 2, que 
suma dos números de 3 bytes. Para su- 
mar más bytes basta añadir las instruc- 
ciones DEC IX y CALL a la subrutina, 
modificando, eso si, las direcciones de 
memoria donde se almacenan los da- 
tos para que no es escriban unos enci- 
ma de otros. 


La máquina de escribir 


En todos los programas que hemos 
visto hasta ahora las entradas y salidas 
las hacíamos desde BASIC. Pero tam- 
bién es posible hacerlo desde lenguaje 
máquina utilizando para ello la ROM 
del BASIC que ya trae un conjunto de 
rutinas con utilidades varias. Una de 
ellas se encarga de imprimir al canal 


067704 
се 


que зе encuentre activo еп ese momen- 
to (normalmente la pantalla). Se llama 
por medio de RST 16 (10h) e imprime 
el caracter que haya en el acumulador. 
La instrucción RST es una versión rá- 
pida del CALL que se utiliza para de- 
terminadas direcciones bajas de me- 
moria (las que son múltiplos de 8) y su 
código hexadecimal varía con cada di- 
rección. ya que en un solo byte se mete 
la dirección y la dirección de llamada. 

Otra llamada que también resulta 
muy interesante es la de leer un carac- 
ter del teclado, CALL 5598, que de- 
vuelve en A el caracter leído. Con ello 
podemos hacer un sencillo programa 
de máquina de escribir que se limite a 
copiar en pantalla lo que se teclee, 
como se demuestra en el listado de la 
figura 3. 

Por último queda una nueva instruc- 
ción que es necesaria para hacer el pro- 
grama. esta es el salto incondicional. 
similar al GOTO del BASIC, que nos 
permite que después de leer e imprimir 
un caracter, vuelva al principio para 
leer otro. Se escribe ІР xxxx у хххх es 
una dirección de 16 bits, la función que 
hace es similar al CALL pero con la 
excepción de que no guarda en la pila 
la dirección desde la que se hizo la Па- 
mada y por tanto no se puede volver 
con un RET. Esto es similar a la dife- 
rencia entre GOSUB y GOTO en BA- 
SIC. 

Una vez realizado este sencillo pro- 
grama, podemos hacer que la máquina 
sea algo más inteligente y que sólo es- 
criba en mayúsculas, modificando las 
minúsculas. La estructura básica es la 
misma del listado anterior, pero aña- 
diendo instrucciones después de la lec- 
tura del teclado y antes de la impresión 
en pantalla, de modo que si es una mi- 
núscula, es decir, si su código se en- 
cuentra entre el 97 y el 122 (la tabla 


созо ово ооо 
звес 0020 Ыр” IX, 50502 
а 
EA Sumas 
1x 
CO73EA sumas 
1х 
CD73ER Suman 
DD7E00 a, «xe» 
DDEEOZ (ез) 
007765 нв, 
9140 END 
Sumas E75 ж 50СЕ 
ORE во 
Lee CALL 5599 
0030 RST 15 
Баба Стела 0040 ЗЕ LEE 
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LEE Ea # SDE 


completa de caracteres del Spectrum 
se encuentra en el apéndice A del ma- 
nual de programación), hay que restar- 
le 32 para que se convierta en su equi- 
valente en mayúsculas, Otra innova- 
ción que vamos a introducir es que al 
pulsar ENTER (que tiene el código 
ASCII 13), se termine el programa y 
volvamos al BASIC. 

El organigrama del programa se 
muestra en la figura 4 y para realizar 
las correspondientes modificaciones 
utilizaremos unas nuevas instruccio- 
nes, las de comparación y salto condi- 
cional. 

La instrucción de comparación, CP, 
se realiza entre el acumulador y el dato 
que se indica detrás. Lo que hace es 
una resta de dicho contenido menos el 
dato indicado a continuación pero sin 
alterar el contenido del acumulador, 
por lo que lo único que resulta afecta- 
do son las banderas. En nuestro caso 
tenemos que comprobar primero si el 
código del caracter leido es menor que 
“а” (97), para ello comparamos, por 
lo que al realizar la seudo-resta la ban- 
dera de acarreo se pondrá alta si el re- 
sultado es negativo, es decir, si el ca- 
racter leido es mayor. Para la segunda 
comparación (si es mayor que 2”) uti- 
lizamos 123, que es el código siguiente 
al de ese caracter. 

Por último quedan los saltos condi- 
cionales. Estas instrucciones son del 
tipo del JP, pero con dos importantes 
diferencias. La primera es que el salto 
sólo se realiza si se cumple la condi- 
ción indicada, en el caso de JR C,xx, si 
la bandera de acarreo está a uno; mien- 
tras que en JR NC.xx el salto se realiza 
si el acarreo está bajado. La otra dife- 
rencia es que la dirección ocupa un 
Буе tomado como un número еп com- 
plemento a dos, por lo que sólo puede 
direccionarse un rango de direcciones 
comprendido entre 127 у -128 respec- 
to al inicio de la siguiente dirección, 
que es la que se toma como 0. Cuando 
se trabaja en ensamblador no hace fal- 
ta ir contando. ya que al poner la eti- 
queta el programa calcula automática- 
mente el desplazamiento necesario. 

Con todo esto se realiza un nuevo 
programa que se lista en la figura 5. 


Figura 5. 
Easo 0010 ORS 20000 
ERGO CODEIS 0020 LEE CALL 5598 
Eass 0025 CD BA 
аба 0030 Ср ча" 
ЕАБЬ 0040 әк 
Eass 0050 се. 
72 0060 JR 
Елес 0070 sus 32 
ERGE 0086 IMPRI RST 16 
72 оовз їр A,B 
ER7O 0080 СР 15 
ER72 0100 JR NZ.LEE 
Еда. 0110 RET 

0120 END 
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AUTO 


La definición de este coman- 
do es muy sencilla, ya que toda 
su sintaxis se ha especificado en 
las tablas, y su ejecución consis- 
te únicamente en pasarle los 
parámetros al bucle principal, 

‚ Que ya se encargará de escribir 
los números de línea. Lo prime- 
ro que hace es recuperar los pa- 
rámetros del número de línea e 
incremento de la pila de cálculo 
y los resta para obtener el valor 
correcto de la variable AUTO- 
LI. Por último, inicializa las va- 
riables AUTOIN y AUTON y 
acaba saltando directamente 
sobre el bucle principal. 


MODE 


Al igual que con AUTO la 
sintaxis está definida en las ta- 
blas. Durante la ejecución coge 
el número de la pila de cálculo, 
comprueba que está dentro de 
los límites correctos y busca el 
valor correspondiente para la 
variable PRDIR (dirección de 
la rutina de salida) en la tabla 
TPRO. 


ON ЕЕЕ 


Este es un comando de clase 
5, y por lo tanto, todo el trabajo 
de análisis sintáctico debe ha- 
cerlo la propia rutina ONERR. 
Como compensación la ejecu- 
ción es muy simple, ya que se 
comporta como si se tratara de 
un REM. (Sólo se pasa detrás 
cuando se ha producido un 
error). Para realizar el análisis 
sintáctico utiliza la rutina 
LIERR, que se encarga de com- 
probar los parámetros de los 


códigos de error. Esta rutina 
también se utiliza cuando se ha 
producido un error para com- 
probar si hay alguna referencia 
al error producido en una sen- 
tencia ONERR. En este caso 
nos devolverá el indicador de 
cero a uno si se ha encontrado 
el código. 


ELSE 


El peso del comando ELSE 
está dentro de la rutina de eje- 
cución de un IF. La rutina de 
ELSE se reduce a continuar si 
se está realizando un análisis 
sintáctico o a pasar a la siguien- 
te línea si estamos en ejecución. 
De esta forma, la rutina queda 
reducida a solamente tres ins- 
trucciones. Lo que queda detrás 
de ELSE sólo se ejecutará si no 
se cumple la condición del IF 
correspondiente. 


SWAP 


Si se llama a este comando 
durante el análisis sintáctico la 
rutina comprueba la existencia 
de los dos nombres de variables 
separados por una coma lla- 
mando dos veces a ІСІЕ 
(CLASS 01), y luego comprue- 
ba que las dos variables son del 
mismo tipo. 

Si se llama durante la ejecu- 
ción el tratamiento es distinto, 
según si se trata de un cambio 
de variables numéricas o alfa- 
numéricas. Si son numéricas 
simplemente coge los dos valo- 
res en la pila de cálculo y luego 
los asigna en orden inverso lla- 
mando dos veces a LET. Si son 
variables alfanuméricas no es 
posible hacer esto, ya que lo 


Este mes acabamos la serie de artículos dedicados al nuevo 
sistema operativo con la parte correspondiente a las rutinas 
de los siete nuevos comandos y el modo de 64 caracteres. 
Con todas las rutinas de los números anteriores ya está 
todo preparado para que cada comando sea llamado en su 
momento y, que éste pueda apoyarse sin problemas en la 
ROM y en el resto del programa, con lo que la definición 
del comando se ha simplificado al máximo. 


que se almacena en la pila no es 
el propio valor, sino una serie 
de parámetros que nos indican 
dónde está la cadena y qué lon- 
gitud tiene, y si lo intentáramos 
destruiríamos una de las varia- 
bles al hacer la primera asigna- 
ción. Por esta razón, una de las 
variables debe ser copiada en el 
área de trabajo antes de realizar 
las dos transferencias. 


ON 


Este comando realiza de una 
forma paralela el análisis sin- 
táctico y la ejecución, aprove- 
chándose de que la mayoría de 
las rutinas de la ROM que ne- 
cesita están preparadas para 
ello. En primer lugar, coge el 
valor de la expresión (o com- 
prueba su sintaxis) y mira si de- 
trás hay un GO TO o GO SUB; 
a continuación, entra en un bu- 
cle en el que va cogiendo todos 
los valores de los números de li- 
nea y luego los saca de la pila a 
по ser que sea el que nos intere- 
sa. Una vez acabado este proce- 
so da por terminada la rutina si 
está realizando un análisis sin- 
táctico, o pasa a la rutina 
GOTO o GOSUB si está ejecu- 
tando. 


RENUM 


Este es sin duda el más com- 
plejo de los nuevos comandos. 
Cuando este comando es llama- 
do los dos primeros parámetros 
de la sentencia (que siempre 
existen) ya han sido introduci- 
dos en la pila (o analizados). Lo 
primero que debe hacer es com- 
probar si existen los otros dos y 
analizarlos si es asi. Una vez 
hecho esto, hemos acabado en 
el caso de análisis sintáctico. Si 
estamos en ejecución hay que 
colocar los valores por defecto 
si es necesario y comprobar si 
todos los parámetros son со- 
rrectos. El número de la última 
línea a numerar debe ser mayor 
que el de la primera línea, el in- 
cremento no debe ser cero, y el 


nuevo número de la última lí- 
nea que se va a renumerar debe 
ser menor que el número de la 
siguiente línea. Además de és- 
tas se deberían haber hecho 
otras comprobaciones, como 
que el incremento no sea nega- 
tivo. Durante la ejecución de 
RENUM se utiliza en varias 
ocasiones la rutina NNL, a la 
cual se le pasa el número de lí- 
nea en los registros BC y nos de- 
vuelve en IX el número de línea 
que le corresponderá después 
de la renumeración. Además, 
nos devolverá el indicador de 
carry а ипо si la línea no va а 
ser modificada. Esta rutina se 
utiliza por primera vez para 


calcular el nuevo número que 
le corresponde a la última línea 
a renumerar. A la vez que se 
realizan estas comprobaciones 
se inicializan las variables del 


sistema con los cuatro paráme- 
tros, para que puedan ser usa- 
dos por NNL. Una vez hecho 
esto, se llama a la rutina SCAN 
que rastrea todo el programa en 
busca de comandos que pueden 
necesitar ser modificados, y los 
arregla si es necesario. Por últi- 
mo, cambia los números de las 
líneas indicadas. Para ello mar- 
ca el final de la zona a renume- 
rar como si fuera el final del 
programa durante el proceso, y 
lo vuelve a arreglar al final. 


NEW 


La rutina NEW nos permite 
borrar el programa BASIC e 


1309 AUTO CALL *1E99 1343 ONERR 
1310 PUSH BC 1344 

1311 CALL *1E99 1345 

1312 РОР НЕ 1346 GSTLi 
1313 LD D,B 1347 

1314 LD Е.С 1348 LIERR 
1315 EX DE, HL 1349 

1316 AND A 1350 

1317 SBC  HL,DE 1351 

1318 LD саотост) , HL 1352 

1319 LD сайтотм) , DE 1555 

1520 LD HL, AUTON 1354 ONER1 
1321 LD (HL), ^01 1355 

1322 LD SP, (“5С5р) 1356 

1323 РОР АҒ 1357 

1324 JP MAINI 1358 LETRA 
1325 MODE CALL 22ррѕ5 1359 

1326 JR С, КЕРВ 1360 

1327 СР “02 1361 

1328 JR C,MOD1 1362 ОМЕК2 
1329 REPB RST 8 1363 

1330 DEFE “ОА 1364 

1331 MODi1 ADD A,A 1365 

1332 LD C,A 1366 

1333 LD B,*00 1367 

1334 LD HL, ТРКО 1368 

1335 ADD HL,BC 1369 

1336 LD E, (HL) 1370 ONERET 
1337 INC HL 1371 

1338 LD D, (HL) 1372 ELSE 
1339 LD (PRDIR),DE 1373 

1340 RET 1374 

1341 TPRO DEFW *09F4 1375 SWAP 
1342 DEFW PROUT1 1376 


CALL “2550 
JP NZ,REM 
CALL LIERR 
CALL бетен 
JP STMTL1 
CALL GETCH 
CALL +2088 
JR  NC,REPB 
PUSH AF 

EX АҒ,АҒ” 
POP АЕ 

CP “ЗА 

JR  C,LETRA 
AND DF 

SUB -07 

SUB “30 

СР Е 

ак NZ,ONERZ 
ЕХ AF,AF? 
CALL МЕХТСН 
ЕР 220 

JR NZ,ONERET 
CALL NEXTCH 
CALL #2свв 
JR C,ONER1 
RST 8 

DEFB “ОВ 

ЕХ AF,AF? 
RET 

CALL +2550 
JP NZ,REM 
JR беті 
CALL 22530 
JR NZ,SWRUN 


inicializar el sistema sin desco- 
nectarnos del resto del progra- 
ma. Este NEW no vuelve a tes- 
tear toda la memoria disponi- 
ble, sino que se limita a iniciali- 
zar las variables indicando que 
no existe programa BASIC. 


COMND 


Esta es la rutina de los co- 
mandos que todavía no han 
sido definidos. Lo único que 
hace es generar un mensaje de 
error. Este es el punto en que se 
debería escribir el hipotético 


PROUT 


Es la encargada de gestionar 
toda la impresión en pantalla e 
impresora, tanto en modo de 32 
como de 64 caracteres. Si esta- 
mos en el modo de 64 caracte- 
res (MODE 1) el programa mo- 
difica el byte de salto relativo en 
la dirección PAMOD+1 según 
si estamos en la primera o en la 
segunda mitad del caracter. 
Esta rutina también se encarga 
del tratamiento de los caracte- 
res de control. En este punto se 
han corregido los errores que se 


nos podemos desplazar por 
toda la pantalla. 

Para saber si estamos en 
MODE 0 ó 1 utiliza la variable 
PRDIR que contiene la direc- 
ción a la que debe saltar para 
escribir el caracter. La rutina 
por lo demás podría ser inde- 
pendiente del resto del progra- 
ma siempre que se inicializara 
correctamente la variable 
PRDIR. De esta forma, esta 
parte se podría «transplantar» a 
otro programa. En la tabla TO- 
TAB están los nombres de las 
palabras clave de los nuevos co- 
mandos con el bit más significa- 


octavo comando correspon- producían al escribir los carac- tivo del último byte puesto a 
diente al código 31. teres 8 y 9, con los cuales ahora uno. 
—, 
1377 CALL ^1С1Е 1411 RST 250 
1378 LD с, *2C 1412 POP DE 
1379 CALL SEPARA 1413 PUSH BC 
1380 LD а, (*5C3B) 1414 LD HL, (*5C61) 
1381 PUSH AF 1415 EX DE, HL 
1382 CALL *1C1F 1416 LDIR 
1383 РОР AF 1417 CALL NEXTCH 
1384 ED- D,(IY+1) 1418 CALL *24FB 
1385 хок D 1419 РОР ВС 
1386 AND 240 1420 РОР HL 
1387 ВЕТ” Ж 1421 PUSH BC 
1388 КЕРС2 RST 8 1422 LD (5650) „НС 
1389 DEFB “0B 1423 CALL *1C1F 
1390 SWRUN LD HL, (45С50) 1424 CALL *2AFF 
1391 PUSH HL 1425 LD DE, (*5C61) 
1392 CALL *24FB 1426 РОР BC 
1393 БІТ 6, (IY+1) 1427 CALL “2Ав2 
1394 CALL 7, SWSTR 1428 JP SWCON 
1395 CALL NEXTCH 1429 OMAGO CALL GETCH 
1396 CALL *24FB 1430 CALL *1C82 
1397 РОР HL 1431 LD B,A 
1398 LD (2505D) „НС 1432 AND “FE 
1399 CALL *1C1F 1433 СР “ЕС 
1400 CALL *2AFF 1434 JR NZ ,REPC2 
1401 SWCON CALL NEXTCH 1435 LD Es “OQ 
1402 CALL *1C1F 1436 PUSH BC 
1403 CALL *2AFF 1437 CALL “2550 
1404 RET 1438 SCF 
1405 SWSTR CALL “2BF1 1439 CALL м2,<2005 
1406 LD A,B 1440 JR NC, ONLOOP 
1407 ок с 1441 LD а, “FF 
1408 JP Z,*2AB2 1442 ONLOOP PUSH AF 
1409 PUP Hi 1443 CALL NEXTCH 
1410 PUSH DE 1444 CALL *1C82 


D 


[5 CUATRO RST 


1445 РОР 
1446 CALL 
1447 JR 
1448 DEC 
1449 JR 
1450 PUSH 
1451 RST 
1452 DEFB 
1453 РОР 
1454 ОМ1 LD 
1455 CALL 
1456 CP 
1457 LD 
1458 JR 
1459 POP 
1460 CALL 
1461 RET 
1462 RET 
1463 EP: 
1464 JP 
1465 JP 
1466 ОМО РОР 
1467 DEC 
1468 PUSH 
1469 JR 
1470 КЕМИМ CALL 
1471 JR 
1472 RST 
1473 СР 
1474 ВЕТ 
1475 RST 
1476 JP 
1477 RERUN RST 
1478 CP 
1479 JR 
1480 LD 
1481 PUSH 
1482 LD 
1483 JR 
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Z, CUATRO 
HL, 22710 
HL 

вс, “0000 
DOSPAR 
220 


1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 


DOSPAR 


КЕРВ2 


КЕМІ 


HL, BC 

HL, BC 

JR C,REPB2 
їр (ULTLI>,HL 


LD (PRILI>,BC 
CALL *1E99 

LD A,B 

OR с 

JR NZ,REN1 
RST 8 

РЕРВ “ОА 

LD (INCR), BC 
CALL 21Е99 


LD (COMIE),BC 
LD вс, (ULTLI) 
CALL мм 


HL, DE 

JR NC, REPB2 
LD HL, (+5C5D)> 
LD (“25CS5F) , HL 
CALL SCAN 

LD а, ЕЕ 

CALL “1601 

LD сн, (*5C5F) 
LD (*505D) , HL 
LD (1Y+38),*%00 
LD HL, (ULTLI) 


) 


= TODOSPECTRUM es una publi- 
памва cación mensual que le ayudará а 


= 


obtener el máximo partido a su 
SPECTRUM y al ZX 81. 


CONOZCA LAS VENTAJAS DE SUSCRIBIRSE A 


ШЕШІ М 


ADEMAS, е hacemos un 25 % DE DESCUENTO 
sobre el precio real de suscripción (12 números) 


VALOR REAL DE OFERTA ESPECIAL 
SUSCRIPCION DE SUSCRIPCION USTED AHORRA 
732600 ras. 2.700 PTAs. 900 Pras. 


APROVECHE AHORA esta oportunidad irrepetible para suscribirse a TO- 
DOSPECTRUM. Envie HOY MISMO la tarjeta adjunta a la revista, que no 
necesita sobre ni franqueo. Deposítela en el buzón más cercano. Inmediata- 
mente recibirá su primer ejemplar de TODOSPECTRUM más el REGALO. 


Bravo Murillo, 377 
Tel. 733 79 69 
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1527 
1528 
1529 
1530 
1531 
552 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 


REBUC 


REEND 


SCAN 
OTRALI 


OTRST 


HL 
“196€ 

A, (HL) 

AF 

A, «во 
(HL), A 

HL, (PRILI) 
2196E 

DE, (COMIE) 
DE 

A, (HL) 

во 

2, КЕЕМО 
DE 

(HL),D 

HL 

CHL) „E 

HL 

HL 

HL, (INCR) 


(HL), A 


HL, (25053) 
A, (HL) 


C, (HL) 
HL 

B, (HL) 

HL 

HL, BC 
(+5C4D),HL 
HL 
(DCOMI),HL 
<=5650) „ HL 
NXST 

HL 

D, ^02 
EASTMT 

NC, NXST 
HL, (2SC4D) 
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1576 
1577 
1578 
1579 
1580 
1581 

1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 

1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1500 
1601 

1602 
1503 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1615 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1625 
1624 


МХТ 


RETAB 


RSAVE 
SAON 
заом 


ком 


OTRPA 


RRES 
RES1 


HL, ВЕТАВ 
с, А 

^16DC 

NC, OTRST 

D, 00 

E, (HL) 
HL,DE 

^162С 

OTRST 

2F8, RSAVE-$ 
21C,RON-$ 
“EC,RRES-$ 
“ED, RRES-5 
“E1 „ RRES-$ 
“FO, RRES-$ 
27, RRES-$ 
“ES, RRES-$ 
“00 

С, “ЕЕСА 
HL, (*5C5D) 


№2, SAON1 
(5C5D) , HL 
RRES 

BC, “ЕЕЕС 
SAON 


HL, (%SC5D) 
HL 

A, (HL) 
<ОЕ 


1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1655 
1636 
1637 
1638 
1659 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1548 
1649 
1650 
1651 
1652 
1655 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1651 
1662 
1663 
1664 


RES2 


RES3 


Z,RES2 
<201в 
E 

KES1 
HL 
-1вве 
«за 
Z,KES3 
20D 
Z,RES3 
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DE, (“5C5D) 
DE 
(+5C5B) , HL 
BC 

217ES5 

а, “FF 
21601 

BC 


1665 
1666 
1667 
1668 
1669 
1670 
1871 
1672 
1673 
1674 
1675 
1676 
1677 
1578 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1598 
1699 
1700 
1701 
1702 
1703 
1704 


NNL 


OTHLI 


DCOMI 
ULTLI 
FPRILI 
COMIE 
INCR 
NEW 


=1А1В 
HL, (25640) 
DE, (DCOMI) 


HL, (ULTLI) 
A 


HL, вс 

E 

HL, (PRILI) 
HL, BC 

7 


с 
HL, BC 
IX, (COMIE) 


10000 

1 

10 

10 

HL, (*5CB2) 
(HL) , ЗЕ 
HL 


м 
5 


1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 МСОРУК 
1757 


SP, НС 
HL 

HL 
(25C3D) , HL 
Y, 25C3A 
HL, *5CB6 
(25C4F) , HL 


(25057) , HL 
HL 
(45053) , HL 
(25C4B) , HL 
(HL) , +80 
HL 
(45059) , HL 
(HL), “OD 
HL 

(HL) ,=8O 
HL 
(25061), HL 
(25063) , HL 
(25065) , HL 
A, ^OF 
(25C8D),A 
СеБСВР) „А 
(25048) ‚А 
А, 201 

(ЕЕ) ,A 
(1у-58) 
(IY-54) 
HL, PROUT 
(25CC5) , HL 
HL, *15C6 
DE, *5C10 
BC, “000E 


1, (1Y+1) 
“DEDF 
(IY+49) , 202 
сїз 

A 

DE, MCOPYR 
<осой 
(IY+1),200 
5, (1Y+2) 
MAIN1 

во 


1758 
1759 
1760 
1761 
1762 
1765 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
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1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
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COMND 


PROUT 


PRDU1 


FCALC 


PROUZ 


PSTORE 


PRDIR 
PRDAT 
POTOK 


POEACH 


A, (HL) 
(PAMOD+1),A 
AF 

220 

NC, PROUZ 
210 

C, PROUZ 
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C„FROU1 

^18 

DE, TOTAB 
POTOK 

HL 


HL 
PROUT1 
HL, PRDAT 
1, (IY+1) 
NZ 

HL 

O, (IY+2) 
z 

HL 


HL, (PRDIR) 
21620 

HL 

A, (PAMOD+1) 
(HL), A 


PROUT1 
200,*00,*00 
AF 

20041 

A, ^20 

0, (IY+1) 

Z, “оств 

а, (DE) 

27F 

20C3B 

A, (DE) 

DE 

А, А 

МС, РОЕАСН 
DE 

^48 

Z, PROUZ 
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1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 


PROU3 


PROUT1 


POTV1 
PCONT 


PATINP 


-82 
8,520 
2QC3B 
“0803 

220 

NC, POABLE 
210 
C,PCTRL 
-18 

NC, PINTER 
216 

NC, P20PER 
DE,PCONT 
=047D 

DE, PROUT 
“0480 

HL, (2SCOE) 
D,A 

A, (PRDIR+1) 
209 
2,%0491 
А. 

216 
Сс,42211 
м2,РОТАВ 
в,н 

C,D 

А, “3F 

e 

C,“OAAC 
А, ^04 

С, А 

A 

с 
С.РАТІМР 
8,415 
(PAMOD+1),A 
<ойах 
PCALC 
PSTORE 


1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
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1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 


POTAB 
POFILL 


Р2ОРЕК 


POTV2 


PINTER 


PCTRL 


POBACK 


РВСК1 


а,н 
“0B03 

AF 

A, (PAMOD+1) 
201 

с 

AF 

AC 

203 

23F 

«олса 
РЕ,РОТУ2 
POTV1 
DE,PCONT 
20470 

А, “3F 
POABLE 

“06 

NZ, POBACK 
E 

А, 244 

с 

230 

а, “10 
POFILL 

<ов 
NZ,PRIGHT 
A, (PAMOD+1) 


A 

Z,PBCK1 

a 
(PAMOD+1),A 


8,415 
(PAMOD+1),A 
с 

а,%22 

с 

NZ,PBCK3 

1, (1Y+1) 


D 


1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 


FCBK2 


PBCK3 
PRIGHT 


1906 - 


1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1955 
1956 
1957 
1958 
1959 
1940 
1941 
1942 
1945 


PENTER 


POABLE 


POANY 


PUDGSP 


POCHAR 


NZ, PCBK2 
B 


C, “02 
A,*19 

B 

NZ, PECK3 
B 

C,*21 

а 
(PAMOD+1),A 
“Орр? 

09 

NZ, РЕМТЕК 
А, (1Y+87) 
АЕ 
(1Y+87),A 
A, ^20 
POCHAR 

AF 
(1Y+87),A 
“OADC 

20D 

NZ, PINTER 
1, (IY+1) 
NZ, CBUFF 
A 
(PAMOD+1),A 
с, +21 


0009 
POANY 
“0ADC 
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С, POCHAR 
“А5 

NC, “OBSF 
А, -15 

ағ 

А, (FAMOD+1) 
A 

Z, PUDGSP 
A,*20 
POCHAR 

ағ 

BC. 

BC, (“5С7В» 


` “OB6A 


вс 

ВС, СНТАВ-^100 
РЕ, HL 

HL, 25628 

O, (HL) 


1944 
1945 
1946 
1947 POCH3 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 PRALL 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 PALL1 
1974 
1975 
1976 
1977 
1978 
1979 PALL7 
1980 
1981 
1982 
1983 
1984 
1985 
1986 PALL2 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 PALL3 


=20 

NZ, POCH3 
O, (HL) 
н, 200 


DE, HL 
A, (PAMOD+1) 
A 

Z,PRALL 

A 
(PAMOD+1),A 
PALL7 

а,с 

А 

8,421 
NZ,PALL1 


A,*15 


A, (1Y+87) 
В,^РЕ 


с,РАЦ 2 
в 


‘1, (IY+1) 
Z,PALL3 
1, (1Y+48) 


DE, HL 


1997 
1998 
1999 
2000 
2001 

2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
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2015 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 


PALL4 
PAMOD 


PSM 


РТЕХР 


PALLS 


C, PALLA 
D 
HL 
A 
NZ, PALL4 


2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 

2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 

2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2041 

2062 
2063 
2064 
2065 


FALLS 


TOTAB 


CBUFF 


DE, HL 
H 

1, (IY+1) 
2,“ОВрВ 

HL 

BC 

а, (РАМОР+1) 
а 

м2 

с 

HL 


AF, AF? 
а, 220 

А.Е 

Е,А 

AF „AF? 
PALLS 

“BF 

"ELS" 
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"ОМ ЕК" 
2р2 

"дит" 

БЕ 

"RENU" 
“CD, "0", -СЕ 
"SHA" 

“ро 

"мор" 

=C5, “CO 
HL, PAMOD+1 
(HL) „200 
“0ECD 


Igunas personas afirman 
Ам la programación de 
2 Ordenadores es un arte 

más que una ciencia” y 

que sólo unos «elegidos» 
son capaces de programar sa- 
cando el máximo partido a la 
máquina. Sin llegar a eso, ni 
mucho menos, sí que es cierto 
que existen muchos «trucos» a 
la.hora de programar que no se 
explican en el manual y que sin 
embargo pueden simplificar 
mucho los programas al aho- 
rrarnos el escribir muchas lí- 
neas. 

Con este artículo pretende- 
mos explicar los más comunes, 
de modo que sus programas 
puedan usarlos y por tanto ser 
más cortos y lo que es más im- 
portante, más rápidos. 


Las funciones lógicas 


Normalmente se piensa que 
las funciones lógicas AND y 
OR sólo tienen sentido dentro 
de un IF para averiguar si una 
condición es cierta o falsa. Lo 
mismo sucede con los símbolos 
de comparación (=, *, 5, %, etc.) 
que normalmente sólo son usa- 
dos dentro de instrucciones de 
este tipo. Pero su uso es mucho 
más amplio y nos pueden aho- 
rrar muchos IF como veremos a 
continuación. 

Cuando en un IF se escribe 
una expresión, lo que se le está 
diciendo al ordenador es que la 
evalúe y dé un resultado, y en- 
tonces el IF ejecuta lo que viene 
a continuación del THEN si el 
resultado es distinto de cero, y 
no lo hace si el resultado es 
cero. Por tanto la expresión IF 
0 THEN..., no ejecutaría nunca 
la parte condicionada (la que 


Y 
SS 


está detrás del THEN) al ser el 
resultado del IF siempre cero, 
la situación opuesta de la ante- 
rior sería IF 1 THEN..., que se 
ejecutaría siempre debido a que 
el resultado del IF siempre es 
distinto de cero. Esto nos lleva 
al primer «truco», que consiste 
en un sistema de ahorrar tecleo 
y argumentar la velocidad de 
un programa cuando se está 
realizando una operación cón 
todos los elementos de una ma- 
triz que no valgan cero. Nor- 
malmente se haría así: 

10 FOR l=1 TO 100 (si la 
matriz es de cien elementos) 

20 IF А()< >0 THEN 
... Operaciones a realizar... 

30 NEXT I 


Pero se ptede simplificar así: 


10 FOR I=1 TO 100 

20 IF A(I) THEN ...орегасіо- 
nes a realizar... 

30 NEXT I 


La razón de que quitemos la 
comparación se debe a que ésta 
devuelve un resultado no cero 
cuando se cumple (es decir, 
cuando el elemento de la matriz 
no vale cero) y cero cuando no 
se cumple (cuando el elemento 
de la matriz vale cero), pero 
esto es lo mismo que tiene al- 
macenado la matriz y por tanto 
nos podemos ahorrar la compa- 
ración, ya que el valor no im- 
porta para ver si ejecuta la par- 
te condicionada, porque el or- 


mación en BASIC 


denador sólo comprucba si vale 
cero. 

El caso opuesto a esta com- 
paración sería: 


10 FOR 1-1 TO 100 
20 IF A(I}0 THEN ...орега- 
ciones a realizar... 


30 NEXT 1 


En este caso sólo se ejecuta la 
parte condicionada cuando el 
elemento de la matriz valga 
cero. Usted ya estará pensando 
laja, aquí no se puede abreviar 
ya que queremos hacer justo lo 
contrario, es decir, ejecutar 
cuando valga cero! Pero por 
suerte el Spectrum dispone de 
otra función para estos casos. 


“Se trata de NOT, y lo que hace 


es convertir cualquier número 
que no valga cero en cero y si el 
número vale cero lo convierte 
en uno. Para decirlo de otro 
modo, invierte el valor. Por ello 
podemos escribir: 


10 FOR 1=1 TO 100 
20 IF МОТ А() THEN 
...орегасюпез a realizar... 


30 NEXT I 


Y en este caso las operacio- 
nes se ejecutarán cuando el ele- 
mento valga cero, ya que al po- 
nerle el NOT delante, el resul- 
tado final será uno en ese caso y 
cero en los demás. 

Pero en muchas ocasiones 


nos podemos ahorrar hasta el 
IF. Este es el caso de ciertas si- 
tuaciones en las que una varia- 
ble tiene que adoptar un valor 
si otra es cero y otro totalmente 
distinto si la segunda es distinta 
de cero. Imaginemos que nece- 
sitamos que «A» valga 3 si «B» 
es cero y si no que adopte el va- 
lor 2*B. En un principio parece 
que se podría poner А=2*В. 
Pero cuando B valga 0, A val- 
drá 0 y no 3 como queremos. 
Parecería que aquí hay que po- 
ner un IF para hacer esa asigna- 
ción sólo si B es distinto de cero 
y hacer A=3 en caso contrario. 
Pero no tiene por qué ser así. 

Las comparaciones entre nú- 
meros (=, <, >, < >, etc.) dan 
como resultado 1 si la relación 
indicada se cumple y O si no es 
así. Esto nos permite escribir la 
operación anterior como 
A=2*B*(B< >0) + 3*(B=0). Ya 
que cuando B valga cero, 
В < > 0 será falso, В=0 cierto y, 
por tanto, el valor de A será 
A=2*B*0+3*1, о lo que es lo 
mismo, A=3. En cambio cuan- 
do B sea distinto de cero, obten- 
dremos A=2*B*1+3*0, es decir 
A=2*B. La expresión podría ha- 
berse simplificado poniendo 
A=2*B+3*(B=0), ya que la com- 
paración B< >0 es redundante 
como puede observarse volvien- 
do a evaluar esta expresión en 
ambos casos. 

Otro caso que se puede sim- 
plificar es el de seleccionar el 
mayor de dos valores. Esto nor- 
malmente se hace con IF, den- 
tro del cual se pone la compara- 
ción a realizar. Pero otro méto- 
do es hacer: 


MAX=A*(A > В}+В*(А <=B) 
La razón de que en la segun- 


da comparación se ponga me- 
nor o igual en lugar de menor 
solamente se debe a-que si ат- 
bos números son iguales y sólo 
hubiéramos puesto menor, am- 
bas comparaciones serían falsas 
y por tanto MAX adoptaría el 
valor cero. En cambio tal como 
lo hemos puesto, cuando A y B 
sean iguales MAX adoptará el 
valor de B. El símbolo igual 
también podía haberse puesto 
en la primera comparación, 
pero nunca en las dos a la vez. 


Operadores lógicos 


Usted seguramente habrá 
usado las operaciones +, =, * y / 
en sus programas. Estos se de- 
nominan operadores matemáti- 
cos y como su propio nombre 
indica, realizan operaciones 
matemáticas con números. Se- 
gún esta definición, los opera- 
dores lógicos serán aquellos que 
realicen operaciones lógicas 
con números. Aunque esto 
puede sonar extraño, en reali- 
dad es muy sencillo, ya que una 
operación lógica es aquella que 
sólo distingue entre cero y cual- 
quier otro valor distinto de 
cero. 

Ya hemos visto un operador 
lógico, el NOT, y su modo de 
funcionamiento. Su caracterís- 
tica más importante es que ope- 
ra sobre un solo número invir- 
tiéndolo, de modo que si es cero 
lo convierte en uno y si es dis- 
tinto de cero lo convierte a 
сего. 

Además de esta operación 
existen otras dos que operan 
con dos números. La AND y la 
OR. Ambas siguen el mismo 
formato de las operaciones ma- 
temáticas, es decir, el primer 
operando, la operación y el se- 
gundo operador. 

La operación AND (Y en in- 
glés) devuelve un valor distinto 
de cero si el primer operando es 
distinto de cero Y el segundo 


también. O dicho de otro 
modo, cuando alguno de los 
dos operandos es cero (o los 
dos) entonces el resultado es 
cero. Esto se puede representar 
con una tabla de verdad como 
se muestra en la figura 1, en la 
que se representa el valor de 
cada uno de los operadores y el 
valor del AND de ambos. Hay 
que tener en cuenta que en esta 
tabla cuando ponga “1” quiere 
decir «cualquier número distin- 
to de cero». Esto resulta espe- 
cialmente importante en el va- 
lor devuelto, ya que como vi- 
mos antes, las comparaciones 
devolvían un valor 1 ó 0, pero 
en este caso no necesariamente 
devuelve un 1 si ambos son dis- 
tintos de cero (para ser exactos 
la mayoría de las veces no de- 
vuelve 1), sino que puede de- 
volver cualquier número distin- 
to de cero. 

Si necesitamos asegurarnos 
de que este valor sea uno o cero, 
se puede usar la siguiente ex- 
presión: 


ABS(SGN(A AND В)) 


Donde A y B pueden ser nú- 
meros u otras expresiones. Cu- 
riosamente se puede escribir 
esta expresión con igualdades: 


(A< >0)*(B< >0) 


La operación OR tiene un 
funcionamiento similar a la án- 
terior pero devuelve un número 
distinto de cero cuando cual- 
quiera de los dos operadores, o 
los dos, son distintos de cero. 
La tabla de verdad se da en la fi- 
gura 2. En ella podemos ver que 
sólo se devuelve un cero cuan- 
do los dos operandos son cero. 
Al igual que con el NAD, un 
uno significa «cualquier valor 
distinto de cero», por lo que 
para obtener un 1 tendremos 
que hacer 


ABS(SGN(A OR B)) 


Donde A y B, como antes, 
son números o expresiones. 
Esta expresión también se pue- 


de reescribir con comparacio- 
nes tal como sigue: 


SGN((A < >0H(B< >0)) 


El FOR condicional 


Una de las primeras expre- 
siones que se aprende en el BA- 
SIC son los bucles FOR- 
..МЕХТ. Su indudable utilidad 
y su facilidad de uso lo convier- 
ten en una de las expresiones 
más usadas en cualquier tipo de 
programas. Pero tiene algunos 
problemas que la hacen inusa- 
ble en determinados casos, 
como cuando se quieren exami- 
nar todos los elementos de una 
matriz y si alguno es cero, en- 
tonces se termina sin compro- 
bar los restantes, 

Para solucionar esto y poder 
seguir usando el FOR, existen 
dos soluciones. Ninguna de 
ellas es «elegante» y a algún 
programador profesional no le 
puede agradar el método, pero 
es indudable que funcionan. 


La primera solución para sa- 
lir antes de tiempo del bucle es 
hacer un GO TO a la instruc- 
ción siguiente al NEXT. Su- 
pongamos que queremos exa- 
minar una matriz A de 100 ele- 
mentos y salir cuando encon- 
tremos alguno que valga cero, 
pero existe la posibilidad de que 
no haya ninguno que valga 
cero. Esto lo podemos hacer 
como sigue: 


10 FOR 1=1 TO 100 

20 IF A(I}0 THEN GO TO 
50 

30 NEXT I 

40 si llega aqui no hay ningu- 
no que valga cero. 

50 resto de las instrucciones. 


Este método tiene la ventaja 
de que en I se conserva el nú- 
mero del elemento que es cero. 
Por otra parte el GO TO, sobre 
todo en programas largos, es 
algo lento. 

El segundo sistema es más rá- 
pido al prescindir del GO TO y 
además sale correctamente del 
bucle, aunque no conserva el 
número del elemento que es 
cero. 


10 FOR 1=1 ТО 100 

20 IF A(D=0 THEN 12100 
30 NEXT I 

40 resto de las instrucciones. 


Al ser la comparación cierta 
se hace que I valga cien y al Пе- 
gar al NEXT el ordenador se 
cree que ya ha hecho el bucle 
cien veces y sale. Como hemos 
dicho en este caso no se conser- 
va el valor de I, a menos que 
usemos otra variable auxiliar 
para almacenarlo, pero la sali- 
da se hace correctamente y de 
un modo más rápido. Además 
si hay más instrucciones entre 
el IF y el NEXT las ejecuta, 
mientras que con el modo ante- 
rior no lo hacia. 

Esperamos que con estos pe- 
queños «trucos» los programas 
os salgan más pequeños y rápi- 
dos. 
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IPLICACION 


DIBUJANDO 
CON 
SUPERBASIC 


En la primera parte de este artículo vimos cómo realizar 
diversos dibujos utilizando los comandos disponibles en el 
BASIC de nuestro QL, pero para que realmente sean vistosos 


hace falta añadirles un toque de color. 


a instrucción más со- 
nocida que realiza esto 
Jl Jes ІМК п, que nos per- 
mite fijar el color con 
que se hacen todos los 
dibujos a partir de que se eje- 
cute esta instrucción. El ran- 
go de п va del 0 al 7 (con 
MODE 8 activo) y cada uno 
de los valores indica un color 
distinto. Como ejemplo de su 
uso se da el listado de la figu- 
ra 1, que va dibujando círcu- 
los desplazados hacia la de- 
recha y cada uno de un color. 
No obstante éste no es el 
comando más espectacular 
de todos los disponibles. 
Existe uno mucho más colo- 
rista, FILL. Del mismo 
modo que INK, actúa sobre 
las instrucciones que se den 
después, pero no modifica el 
color fijado por INK, sino 
que rellena áreas cerradas 
con ese color. 


©? 


Su funcionamiento es muy 
sencillo, en primer lugar se 
teclea FILL 1 para activarlo, 
a continuación se dibuja una 
figura cerrada (que esté total- 
mente rodeada por líneas) 
por medio de las instruccio- 
nes LINE, CIRCLE o 
ELLIPSE y al dibujarla el or- 
denador, automáticamente 
la rellenará con el mismo co- 
lor де la tinta. Por último, 
para desactivar esta modali- 
dad se teclea FILL 0. 

En listado 2 se ve la dife- 
rencia entre FILL 0 (el modo 
en el que normalmente está 
el QL al encenderlo) y FILL 
1. En la primera parte del 
programa (líneas 110-130) se 
crea un cuadrado sin rellenar 
en la parte izquierda de la 
pantalla. En las líneas si- 
guientes se vuelve a hacer lo 
mismo a la derecha de la 
pantalla pero en esta ocasión 


se ha indicado FILL 1 y el 
cuadrado que se crea se relle- 
na del mismo color. 

Un ejemplo más elabora- 
do del uso de este comando 
es el del listado 3, donde con 
unas sencillas instrucciones 
de trazado de arcos y el co- 
mando FILL, se logra dibu- 
jar unos labios sonriendo. 


Cambiando el color 


Hasta ahora todas las mo- 
dificaciones de color se han 
hecho previamente a los di- 
bujos, pero es posible hacer- 
las con posterioridad. Esto 
permite ver diversas combi- 
naciones y hasta dotar de 
cierta animación a los dibu- 
jos. El comando utilizado 


para ello es RECOL, с0, cl, 
с2, с3, с4, с5, сб, с7. Donde 
c0, cl... c7 son los códigos de 
los distintos colores que se 
reasignan de nuevo, corres- 
pondiendo la combinación 
RECOL 0, 1,2,3,4,5,6,7a 
la disposición al encender. 

Por tanto si queremos que 
el que es blanco al encender 
(el séptimo) cambie súbita- 
mente a rojo (el segundo) 
basta hacer: RECOL 0, 1, 2, 
3, 4, 5, 6, 2 dejando los de- 
más colores con su mismo 
número de orden. Aplicando 
esto al ejemplo de los labios, 
podemos dar la impresión de 
que éstos se abren y se cie- 
rran rápidamente por medio 
de un par de sencillas modifi- 
caciones al programa origi- 
nal de modo que quede como 
se indica en el listado 4. 


оз 


APLICACION 


\PLICACION 


Más cuadrados 


Ya hemos visto antes un 
método de hacer rectángulos 
de colores, pero existe uno 
más fácil aún con el que no 
hace falta activar el FILL. 
Esto se consigue con el co- 
mando BLOCK an,al,y,x,c. 
Siendo “an” la anchura del 
rectángulo, “al” la altura, 
“х,у” la coordenada de la 
parte superior izquierda y 
“c” el color con que se quie- 
re rellenar. En el listado 5 se 
encuentra un programa que 
hemos denominado ciudad, 


100 CLS 

110 FOR ізі TO 110 
120 INK i MOD 8 

130 CIRCLE 1,50,50 
140 NEXT 1 


150 STOP 


100 CLS 

110 INK 6 

120 FILL 1 

130 LINE 5,5 TO 5,60 TO 60,60 TO 40,5 TO 5,5 

140 FILL O 

150 LINE 65,5 ТО 65,60 TO 120,60 10 120,5 TO 65,5 
160 STOP 


100 PAPER 1: INK 2:CLS 

110 FILL 1 

120 АВС 30,50 ТО 80,70,-1.5 TO 80,28,-.5 TO 50,50,-.75 
130 FILL 0 * 

131 FILL 4 

132 ARC 130,50 TO 80,70,1.5 TO 80,28,.3 ТО 150,50,.75 
133 FILL 0 

140 FILL 1: 1NK 7 

150 АВС 35,50 TO 125,50,1.2 ТО 35,50,1.2 

160 FILL OzINK 2 

170 LINE 35,50 TO 125,50 

180 FOR k=50 TO 110 STEP 10 

190 LINE k,36 TO k,64 

200 END FOR k 


100 PAPER 1: INK 2:CLS 

110 FILL 1 

120 ARC 30,50 TO 80,70,-1.5 TO 80,28,-.3 TO 50,50,-.75 
130 FILL O 

140 FILL 1 

150 ARC 130,50 TO 80,70,1.5 TO 80,28,.3 TO 130,50,.75 
160 FILL O 

170 FILÉ 1:1МК 7 

180 ARC 35,50 TO 125,50,1.2 TO 35,50,1.2 

190 FILL 0: тук 2 

200 LINE 35,50 TO 125,50 

210 FOR k=50 TO 110 STEP 10 

220 LINE k,36 TO k,64 


250 END FOR К 
240 RECOL 0,1,2,3,4,5,6,2 


ya que crea bloques rectan- 
gulares de diversa forma y ta- 
maño de modo que parece 
una ciudad de rascacielos. 
Algo más elaborado es el 
sexto listado, en el que he- 
mos empleado una técnica 
denominada “recursión” y 
que no poseen la mayoría de 
los otros lenguajes. Esto nos 
permite diseñar procedi- 
mientos que se llaman a sí 
mismos. En este caso “caja” 
dibuja una cruz de un color y 
en cada uno de los cuatro 
cuadrados resultantes vuelve 
a llamarse a sí misma para 


- crear otras cuatro Cruces, 


que a su vez vuelven a llamar 
a caja. 


La tortuga 


Otra de las habilidades de 
dibujo del QL es la denomi- 
nada «tortuga». Idea que tie- 
nen otros lenguajes, como el 
Logo o el Smaltalk que con- 
siste en que disponemos de 
una tortuga que tiene un lá- 
piz y a la que podemos dar 
instrucciones de movimien- 
to. Las principales son PEN- 
DOWN, que apoya el lápiz 
en el papel y, por tanto al mo- 
verse dibuja; PENUP que lo 
levanta; MOVE n, que avan- 
za n puntos en la dirección 
en que esté mirando; TURN 
a, que gira a la derecha tan- 
tos grados como indique “а” 
desde la dirección actual y 
TURNTO a, que gira tam- 
bién “а” grados, pero no des- 
de donde apunta “a”, sino 
desde la posición en la que 
mira hacia arriba, que en 
este comando se considera la 
inicial. La diferencia entre 
TURN y TURNTO se pue- 
de ver en las figuras 7a y 7b. 
En ambas la tortuga está a 45 
grados de la posición vertical 
(denominada origen) y tam- 


RND (10 TO 200) 

КМО (10 TO 160) 

posi сзоп-КМО (280) 

BLOCK anchura, altura,posicion,200-altura,color 
50 TO 100 


la =— == =l 


100 PAPER 7:CLS 

110 caja 100,10,180,0 

STOP 

130 DEFine PROCedure caja (x,y,5,M) 
LOCal a,b,x0,y0,s0 

IF п=5 THEN RETurn 

BLOCK 1 


ayon 


250 RETurn 
260 END DEFine caja 


100 FOINT 10,10 
110 PENDONN 


120 FOR 151 ТО 4 
130 MOVE 50 
140 TURN 90 


150 END FOR i 


Figura 7b. 


00 SCALE 100,0,0 
MODE 4 

О drags="dd" 

30 FOR g=1 TO 12 
cadena g 

O CLS 


O АТ 0,0: PRINT "Curva Dragon"Y"Nivel"!g 
dibuja_cadena а 
O END FOR g 
пе РкОСеацге cadena 
t,k,as 


FOR t=1 ТО LEN(drag+) 


k=t MOD 2 
IF агадя (+) ТНЕМ 

0 ТЕ гад (+) THEN 
THEN 

THEN 


agt=ał 
O END DEFine cadena 
DEFine PROCedure dibuja_ca 


FENDOWN 
FOR t=1 ТО LENtdrag$) 
IF drags(t)="1" THEN TURN 90 
ТЕ dragr(t)="d" THEN'TURN -90 

O MOVE d 

O END FOR t 


END DEFine dibuja cadena 


bién en ambas se le manda 
girar 90 grados. La diferencia 
estriba en que en el primer 
caso se le dice TURN, que- 
dando a 90 grados de la posi- 
ción anterior y a 135 del ori- 
gen, mientras que en la se- 
gunda se dice TURNTO y 
queda a 90 grados del origen 
y a 45 de la posición ante- 
rior. 

En la figura 8 se da un sen- 
cillo listado para hacer que 
nuestra tortuga dibuje un 
cuadrado y por último en la 
figura 9 se utiliza la tortuga 
de nuevo para crear la deno- 
minada curva del dragón, un 
efecto realmente impresio- 
nante conseguido con muy 
pocas líneas de programa. 
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Соп un tamaño más de tecla- 
do que de ordenador completo 
y envuelto en una bonita carca- 
sa de plástico negro, el QL es 
una máquina que asombra a 
muchos por las posibilidades 
que ofrece. Pero para hacer po- 
sible esto, la gente de Sinclair 
ha tenido que trabajar mucho y 
crear un nuevo concepto total- 
mente distinto a los realizados 
previamente, como explicamos 
en este artículo. 

Para abrir el ordenador se 
quitan diez tornillos dejando el 
ordenador dividido en dos par- 
tes. Por un lado el teclado, que 
va cubierto de una placa metáli- 
ca, y en la parte inferior los mi- 
crodrives, la fuente de alimenta- 
ción y la placa de circuito im- 
preso que constituye el corazón 
del ordenador. 


El 68008 


En la parte izquierda de la 
placa se encuentra el micropro- 
cesador 68008. Este es el encar- 
gado de hacer que el QL funcio- 
ne. En lugar de elegir uno de 
tantos microprocesadores de 8 
bits (Z80, 6502, 6809) como 
otros fabricantes, Sinclair direc- 
tamente saltó a uno de tercera 
generación. El 68008 es miem- 
bro de una familia de sofistica- 
dos procesadores de 16/32 bits 
que se presentaron en 1979. Es- 
tos están orientados hacia el 
programador, ya que poseen 
una estructura interna muy ver- 
sátil. Posee 16 registros de pro- 
pósito general de 32 bits, un 


als 


Detalle de los microdrives. Estas unidades se 


encuentran situadas a la derecha de la placa 


principal. Detrás se puede ver el radiador de la 


fuente de alimentación. 


En esta perspectiva desde la izquierda se puede ver 
un primer plano del conector de expansión al que se 
conectan las unidades de disco y las ampliaciones 

de memoria. 


contador de programa de 32 
bits y un registro de estado de 
16 bits. Soporta cinco tipos dis- 
tintos de datos: bits, BDC (4 
bits), bytes, palabras (16 bits) y 
palabras largas (32 bits). Ade- 
más de esto existen 14 modos de 
direccionamiento distintos, que 
incluyen los de postincremento, 
predecremento, offset e indexa- 
do. Por último hay 56 instruc- 
ciones distintas con múltiples 
variantes, lo que le proporciona 
una flexibilidad asombrosa. 

La única diferencia con su 
«hermano mayor», el 68000, es 
que el bus de datos del QL es de 
8 bits, mientras que el de aquel 


es de 16, por lo que las instruc- 
ciones de lectura y escritura en 
memoria son más lentas. Pero 
como contrapartida se ha redu- 
cido costo en la memoria y en 
los circuitos encargados de con- 
trolar los periféricos. 


Intel 8049 


Este es otro microprocesador 
que lleva el ordenador y está si- 
tuado en el lado opuesto de la 
placa. Se encarga de aliviarle 
trabajo al 68008 realizando ta- 
reas secundarias, tales como 
controlar el teclado, el genera- 
dor de sonido y el puerto serie 


El QL una vez abierto. Se puede ver еп la parte 
inferior la placa metálica que cubre el teclado. En 


la parte superior está la placa principal, los 
microdrives (a su izquierda) y la fuente de 
alimentación debajo de éstos. 


La placa principal del QL, en la cual se hallan los 


dos microprocesadores, la ROM y la RAM. 
68008 es el que tiene la placa dorada. 


RS 232; dejando la CPU libre 
para ejecutar los programas del 
usuario. Su inclusión también 
ha sido necesaria para la соггес- 
ta sincronización de todas aque- 
llas tareas que requerían una 
medición precisa del tiempo, 
tarea que no es posible con el 
procesador principal, ya que 
éste está basado en interrupcio- 
nes y éstas hacian imposible 
medir intervalos correctamente, 


La ROM 


Situada en la parte central 
trasera de la placa y formada 
por dos circuitos integrados con 
total de 32 Kbytes, contiene el 


. El 


sistema operativo y el SuperBa- 
sic. 


La RAM 


La memoria disponible para 
almacenamiento de datos, pro- 
gramas y los 32 K de la memo- 
ria de vídeo es de 128 K, repar- 
tidas en 16 circuitos situados 
delante de la КОМ. Debido a 
que el 68008 es capaz de direc- 
cionar 1 megabyte de memoria, 


* queda suficiente espacio de me- 


moria para ampliar. Aunque 
todavía no ha habido anuncio 
oficial de Sinclair de un produc- 
to de este tipo, múltiples fabri- 
cantes lo ofrecen ya. 


Conectores 


El QL viene bien provisto de 
conectores para múltiples usos. 

En la parte trasera existe gran 
cantidad de conectores. De iz- 
quierda a derecha nos encontra- 
mos con el de expansión de 
ROM, que permite meter un 
cartucho de 32 К. En los рите- 
ros modelos se usó como suple- 
mento para incorporar parte del 
sistema operativo, ya que no ca- 
bia todo еп la memoria princi- 
pal. Actualmente está destinado 
para poder usar determinados 
programas que saldrán en for- 
mato de cartucho. 

А continuación se encuen- 
tran los dos conectores de joys- 
tick, que no tienen un formato 
estándar, por lo que para conec- 
tarle un mando de este tipo ha- 
brá que hacer un cable especial. 
Seguidamente, y con un conec- 
tor similar, se encuentran los 
dos del RS 232 que se destinan 
a controlar la impresora y para 
comunicaciones con otros orde- 
nadores. 

A su lado están el conector de 
televisión (del tipo habitual 
RCA) y un DIN de ocho puntas 
que da salida RGB para moni- 
tores. Finalmente a la derecha 
se encuentran los conectores de 
la red local. 


Los microdrives 


Estos dispositivos son la al- 
ternativa ofrecida por Sinclair 
al almacenamiento en cassette y 
ofrecen mucha mejor calidad 
que este sistema además de 
mayor velocidad. Como con- 
trapartida hay que indicar que 
son más delicados de manejo. Si 
los comparamos con los disket- 
tes de otros ordenadores, se ve 
que tienen menos capacidad (de 
80 a 100 K, mientras los discos 
tienen de 250 a 800 К) y:son 
más lentos (15 K de velocidad 
de transferencia), pero posee 
una contrapartida muy intere- 
sante que es el precio, ya que si 
se hubiesen incluido discos en 
la configuración básica el pre- 
cio habría subido considerable- 
mente. 


о 


APLICACION 


о 


Su anuncio puede ir aquí. Escríbanos а 
«El corcho». TODOSPECTRUM. 


ЕП COCO 


Vendo interface progra- 
mable para joystick de Inves- 
trónica por 4.500 ptas. nego- 
ciables. Preguntar por Anto- 
nio en el (91) 741 03 26. 


¡S.O.S.! Vendo urgente- 
mente ordenador Oric Atmos 
en perfecto estado, con revis- 
tas, trucos personales, joys- 
tick nuevo sin interface, un 
cassette con sus cables, jue- 
gos como Panic, Lone Rai- 
der, Defender, etc. Escribir a 
Luis García Arroyo. Mara- 
gall, 38. 3.:-3. Ripollet (Bar- 
celona). 


Compro el número 1 de 
Todospectrum. José Ramón 
Arauzo. Kalebarria, 2. 1.°-D. 


Durango (Bizkaia). Tel.: (94) 


68129 29 


Vendo Sinclair ZX Spec- 
trum 48 K con cables, trans- 
formador y manual en caste- 
llano. Buen estado. También 
regalo 150 juegos últimas no- 
vedades: West Bank, Ex- 
ploading Fist, etc. Junto al 
ordenador también doy mo- 
nitor profesional especial 
para ordenadores con todos 
sus accesorios. Todo por 
40.000 ptas. Escribir o Па- 
mad a Rafael de Mingo Gil. 
Diana, 13. G. 28002 Ma- 
drid. Tel.: (91) 741 88 59. 


Vendo lápiz óptico Dk'tro- 
nics completamente nuevo 
con cassette de demostra- 
ción, interface y estuche ori- 
ginal por sólo 4.500 ptas. Sin 
más gastos de envio. Escribir 
a José Antonio Rodríguez 
Ovalle. Apartado 28 Villa- 
franca del Bierzo (León). 
Precio a discutir. 


Vendo lote formado por 1 
joystick más interface tipo 
Kempston, 65 programas de 
los mejores juegos y utilida- 
des, 1 libro de programación 
Basic, revistas (1 Your Com- 
puter, 3 Micromanías, 5 To- 
dospectrum, 19 Microhob- 
by, 11 ZX). Todo por 7.000 
ptas. contrareembolso. Es- 
cribira Adolfo Velasco Cres- 
po. Avda. de España, 5. Pon- 
ferrada (León). 


Vendo ZX Spectrum 48 K 
en perfecto estado acompañ- 
do por revistas y software va- 
lorados en más de 150.000 
ptas. Todo por sólo 60.000 
ptas. Escribir a: Carlos José 
Arnaiz. Ramón y Cajal, 1. 
Bajo. Miranda de Ebro (Bur- 
gos). 


Vendo varios libros de in- 
formática y para el ZX Spec- 
trum, como nuevos. Escribir 
a: Fernando Castán. Padre 
Manjón, 34. 5.°-Е. 50010 
Zaragoza. 


Intercambio o vendo (muy 
baratos) programas para 
Spectrum 16 y 48 K. Escribir 
a: Fidel García. Torrecampo, 
71. Vua de Córdoba (Córdo- 
ba). 


Bravo Murillo, 377. 5.* A. 28020 
Madrid 


Vendo ZX Spectrum 48 К, 
más 50 programas comer- 
ciales de reciente aparición 
(Exploding Fist, Herbets, 
Boxing, Dambusters, Hy- 
persports...). Interesados lla- 
mar al tel.: (96) 351 82 76 de 
Valencia y preguntar por 
Antonio, de 19 a 22 horas. 


Vendo ZX 81 más aplia- 
ción de 16 K con manual en 
castellano, fuente de alimen- 
tación, programas (3D 
Monster Maze) por 10.000 
ptas. Llamar a: Manuel Gre- 
gorio. Perú, 4. 1.° izda. Va- 
lladolid. Tel.: (983) 39 68 73 
(llamar деда 11 h.). 


Vendo impresora Seikos- 
ha 50-S, no necesita interfa- 
ce. Llamar noche al tel.: (93) 
7835539. Preguntar por 
Jordi Martínez. Precio a 
convenir. Tiene garantía. 


Vendo ZX Spectrum 48 K 
en buenas condiciones con 
fuente de alimentación, ca- 
bles, manual de instruccio- 
nes y 7 juegos, por 29.000 
ptas. Interesados ponerse en 
contacto соп: José María 
Ripa. Tel.: (91) 7330300. 
ext. 308. Madrid. 


Vendo o cambio máquina 
de marcianos bastante buena 
y con diversas fases, se llama 
Galaxy II y la vendo por el 
sorpredente precio de 4.500 
ptas. (en el mercado está en- 
tre 8.000 y 10.000 ptas.) o 
cambio por programa para 
Spectrum. Interesados lla- 
mar a: Daniel Olive Subias. 
Del Puente, 3. Vilavert (Ta- 
rragona). Tel: (977) 
876453. 


Cuando se canse de jugar ... 


PONGA SU SPECTRUM 
A TRABAJAR ii 


Con el sistema de disco DISCOVERY 1 
con acceso aleatorio y sus formidables 
prestaciones: 


- Disco standart de 3,5" y 180 К. de capacidad. 
- Interface Centronics incluído 

- Salida para monitor monocromo. 

+ Interface joystick. incluído. 

- Alimentación a 220 V. 


Y los depurados programas que SILOG 
hacreado para sacar el máximo partido 
de su Spectrum o Spectrum + 


SISTEMAS LÓGICOS GIRONA, S.A. 
Arda. San Marcio, 24 - 17005 Girona - Tel. (972) 23 71 00 


А UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 


Aproveche la oportunidad de mantener 


como nuevo su Spectrum Plus 
con esta funda, y beneficiese 
de un 30% de descuento 
sobre su precio normal. 


BASE DE DATOS .-Versión similar a la de ordenadores mayores a una 
fracción de su coste. Hasta un total de 4 000 fichas por disco. Ideal 
para mailing, cartas personalizadas, fichero clientes, etc. 


TRATAMIENTO DE TEXTOS .- Convierte a su Spectrum, con ayuda de 
una impresora en una auténtica máquina de escribir electrónica 
Justifica márgenes, busca palabras, inserta, mezcla párrafos, ect. 
Hasta un total de 100 folios en cada disco. 


TRANS - EXPRESS - Para pasar a disco cualquier programa 
procedente de casette, esté protegido o no. Efectivo con la 
mayoría de programas en circulación 


TuRERTTY .- Partiendo de un transmisor adecuado decodifica las 
señales de teletipo, presentando los mensajes en pantalla. Recibe 
emisoras comerciales y de aficionados. 


PODEMOS PASARLE A DISCO CUALQUIER PROGRAMA COMERCIAL QUE LE 
INTERESE. 


SI CREE QUE EL SPECTRUM TIENE UN TECLADO POCO 
ORTODOXO PARA USARLO COMO ORDENADOR SERIO 
TIENE VD. TODA LA RAZON. 

POR ELLO, TAMBIÉN LE OFRECEMOS EL MEJOR TECLADO 
PROFESIONAL QUE EXISTE EN LA ACTUALIDAD: EL SAGA 3 
ЕШТЕ 


TECLADO SAGA 3 + SPECTRUM + DISCOVERY, 


completo más económico del mercado. 


1 sistema informático 


EN PREPARACIÓN: CONTABILIDAD, FACTURACIÓN, DECLARA- 


CIÓN RENTA 1985, etc 


¿LIBROS 


| BASIC PROGRAMACION 


Editorial: Ediciones SM 
Autores: Lowy Frutos, 
Gallego Palomero, 
Mansilla Romo 
Páginas 225. 


Dentro del extenso número de 
libros publicados en los últimos 
años sobre informática destacan, 
sobre todo, los dedicados al apren- 
dizaje del lenguaje BASIC y es, 
dentro de éste grupo, donde pode- 
mos incluir éste nuevo título, ВА- 
SIC Programación, publicado por 
Ediciones SM y cuyos autores 
(dato a tener en cuenta) son un 
grupo de profesionales españoles. 

Tanto la estructura como la dis- 
tribución de las materias que abar- 
ca lo sitúan preferentemente como 
un libro didáctico, en el que cada 
capítulo o tema (consta de 14 сар!- 
tulos y dos apéndices) va desglo- 
sando la estructura del BASIC, su 
funcionamiento, sentencias y apli- 
caciones prácticas ilustradas con 


BASIC 


Е Lowy Frutos АЕ. Gallego Palomero 
ааа Romo 


gran profusión de ejemplos y pro- 
gramas. Los capítulos tienen sec- 
ciones fijas que incluyen la des- 
cripción y resumen de las senten- 
cias, desarrollo de un programa de 
poca extensión y explicación de su 
funcionamiento y un buen número 
de ejercicios diversos para el usua- 
rio y de recapitulación, además de 
otros problemas resueltos por los 
autores de la forma más idónea. 

En principio el libro no está re- 
dactado para un determinado sec- 
tor de usuarios y máquinas. Su fa- 
cilidad de comprensión lo hacen 
apto para cualquier usuario, tenga 
poca o mucha experiencia con el 
BASIC o con cualquier otro len- 
guaje, ya que tanto los ejercicios 
como la descripción y uso de las 
sentencias están suficientemente 
explicadas como para que no pre- 
senten ningún problema. Todos 
los programas y ejercicios pueden 
ejecutarse en cualquier microorde- 
nador, ya que se utilizan senten- 
cias estándar del BASIC y, en 
aquellos casos en los que determi- 
nadas sentencias no sean aceptadas 
por algún ordenador, se especifica 
cuál y se establece la modificación 
oportuna. Aparte de esto, es acon- 
sejable utilizar el manual del BA- 
SIC del ordenador en que se está 
trabajando junto con el libro de 
aprendizaje. 

El libro incide fundamental- 
mente en las posibilidades mate- 
máticas y de cálculo del BASIC, 
exponiendo e invitando al usuario 
con una gran variedad de ejemplos 
y ejercicios, para que utilice su 
máquina como una potente calcu- 
ladora, sirviendo de este modo 
como un libro de apoyo al estu- 
diante para repasar las lecciones 
aprendidas. 

También resulta especialmente 
útil a los usuarios que pretenden 
aprender, de una forma clara y 
amena, a programar su ordenador 
para realizar sus propios progra- 
mas de gestión, diversión, etcétera. 


DISEÑO DE GRAFIC 


Autor: 1. O. Angel-B. J. Jones 
Editorial: ANAYA Multimedia 
Páginas: 387. 


Resulta evidente, incluso para 
aquellas personas no introducidas 
en el mundo de la informática, que 
uno de los campos más apasionan- 
tes y vistosos de los ordenadores, es 
el dedicado a las representaciones 
gráficas en sus múltiples variantes. 
Una demostración clara de esto 
son los juegos que invaden todas 
las tiendas, en los que se puede ver 
un amplio desarrollo gráfico. 

Dentro de esta corriente «gráfi- 
ca» han surgido múltiples libros 
que intentan dar una explicación 
clara y sencilla de su manejo para 
que el lector pueda realizar sus 
propios programas. Este es el caso 
de «Diseño de gráficos y videojue- 
gos», un libro que hace exhaustivo 
estudio de los gráficos del Spec- 
trum en todas sus variantes. Esto 
mismo podría decirse sin duda de 
muchos otros, pero en este caso 
hay diferencias importantes. En 
primer lugar no se parte de la idea 
del recetario de trucos sencillos 
para usar en los programas, sino 
que se da la base matemática nece- 
saria para su comprensión usando 
la geometría del plano y del espa- 
cio que muchos estudiantes ha- 
brán tenido que aprender. Esto 
hace que aunque en principio es 
más difícil de entender que otros 
libros, si se lee atentamente la 
comprensión del funcionamiento 
de los gráficos, y por tanto su ma- 
nejo, es mucho más fácil. 

El otro detalle que lo diferencia 
de otros libros es que incluye una 
cinta con algunos programas de- 
mostrativos y lo que es más impor- 
tante, subrutinas avanzadas que se 
pueden introducir dentro de los 
programas que haga el lector. 

El índice del libro consta de 15 
capítulos y dos apéndices, lo que 
cubre prácticamente todo el espec- 


OS Y VIDEOJUEGOS 


tro de variantes gráficas del Spec- 
trum. 

A continuación se pasa al estu- 
dio de los caracteres gráficos con 
indicaciones para usar los ya exis- 
tentes y para crear otros nuevos. 
Como aplicación de estos concep- 
tos se dan listados de algunos jue- 
gos, como el mastermind y un sen- 
сШо ajedrez. 

En el siguiente capitulo se habla 
de las aplicaciones estadisticas de 
los gráficos, realización de histo- 
gramas (gráficos de barras) y modo 
de calcularlos y representarlos. 

Siguiendo con el tema de repre- 
sentación de objetos tridimensio- 
nales se ve posteriormente el tema 
de los algoritmos de líneas ocultas. 


Estos son sistemas de representa- 
ción de objetos en los que se calcu- 


y lan que partes no se ven debido a 


que están detrás de otras y en con- 
secuencia no se dibujan. 

Como final se incluye una parte 
destinada a los manejos avanzados 
de gráficos y sus aplicaciones. En- 
tre estas destacan las de los video- 
juegos. a los que se dedica un capí- 
tulo entero explicando paso a paso 
su realización. 


El libro es un interesante tratado, 
del tema de los gráficos en todas 
sus variantes y resulta interesante 
para todas aquellas personas que 
quieran realizar una profundiza- 
ción seria de este téma. Cabe seña- 
lar también la cuidada traducción, 
realizada con un cuidado y esmero 
que debería servir de ejemplo a 
otros libros. 


r BUTI HE 


SALON PROFESIONAL DE 
LA INFORMATICA Y OFIMATICA 


ELECTRONICA 


*ÉSANDOVALsa 


DISTRIBUIDORES DE: 
COMMODORE-64 
ORIC-ATMOS 
ZX SPECTRUM 
SINCLAIR ZX 81 
ROCKWELL'-AIM-65 


E ENERO 
LLA, DEL 28 0! A 
к DE FEBRERO ОЕ 1.98 


Del 28 de enero al 1 de febrero, se celebrará en Sevilla, DRAGON-32 
807086 (1 Salón de la Informática, Ofimática y Afines) NEW BRAIN 

El Certamen que se celebró en su primera edición, DRAGON-64 
dedicado unicamente a la Informática se amplia en esta CASIO FP-200 


edición a la Ofimática siguiendo la opinión de los 
expositores еп 60T0'85. 


ELECTRONICA SANDOVAL, S. A. 
С/ SANDOVAL, 3, 4, 6. 28010-MADRID 


De esta forma, el Salón se enriquecerá con esta 
ampliación cumpliendo el objetivo de dar cabida en esta 
muestra a todos y cada uno de los sectores profesionales 
a que va dirigida. 


G0T0'86, está organizado por la Institución de Feria de 
Muestras Iberoamericana de Sevilla, en colaboración con 
AIESEC-SEVILLA, Asociación Internacional de Estudiantes 
de Ciencias Económicas y Empresariales. 


Coincidiendo con el Certamen y en el Salón de Actos de 
la Feria, se desarrollará un calendario de Jornadas 
Técnicas, dirigidas básicamente al Empresariado. Estas 
Jornadas Técnicas están organizadas por la Consejeria de 
Industria de la Junta de Andalucía y la cátedra de 
Informática de la Facultad de Ciencias Económicas y 
Empresariales de Sevilla. 


Telefonos: 445 75 58 - 445 76 00 - 445 18 70 
447 42 01 
C/ SANDOVAL, 4 y 6 
Centralita 445 18 33 (8 líneas) 


ORDENADORES 
e QL - AMSTRAD - SPECTRUM 
PROGRAMAS 

e Contabilidad QL . 20.000 ptas. 
е Nóminas QL . 25.000 ptas. 


Avda del Medterraneo, 7 
Tels. 251 12 00 y 257 7209 


FIGURA 1 
10 CLEAR 65207: BORDER 4: FAFE 
ка: INK 4: CLS : POKE 23658,8: 


POKE 65472,52: 
KE 23609,100 

15 LOAD ""CODE 65568,64: 
: CLS 

20 РАТМТ FLASH 1;АТ 1,9:"ІМӘТ 
RUCCIONES!" 

50 PRINT ””" JUEGAS AL MUS DE 
4 REYES БЕ JUEG ES Ж 25 РЕ 
EDRAS"*" ЕМ TOTAL 5 AMARRACOS"* 
" "CONTESTA A LAS PREGUNTAS CON: 


FOKE 65475,74: FO 


INK 9 


40 PRINT ?" S РАКА CONTESTAR 
Зи" № Рака МО" ЕХ ¡PARA 
ENVIDO"**" O Рака ORDAGO" 
50 PRINT *" SI QUIERES CAMBIA 
R TODAS LAS CARTAS FULSA ENTE 
R" 

60 РКІМТ AT 21,3; "PULSA UNA ТЕ 
CLA FARA JUGAR": PAUSE O: CLS 

80 REM CONDICION DE RANDOMIZE 

82 RANDOMIZE 
100 REM VARIABLES DEL FROGRAMA 
103 LET pie=0: LET piesp=0: LET 
amar=0: LET amarsp=0 


` 


¿Quién no ha visto alguna vez las 
frases «órdago», «envido», «paso» en 
alguno de los bares o tascas que pue- 
blan la geografía española? El mus es, 
indudablemente, uno de 105 juegos 
con más raigambre nacional y por eso 
el programa cuyo listado damos y que 
nos ha sido remitido por Santiago 
Fernández Mayoral, es seguro que 
hará feliz a más de uno, ya que es ca- 
paz de jugar contra un oponente hu- 
mano, realizando jugadas típicas y 
contando amarracos, aunque eso sí, 
по es capaz de hacer señas. 

Hay que reconocer que el ordena- 
dor no juega muy bien, ya que es rela- 
tivamente fácil ganarle; ahora bien, al 
estar escrito en BASIC cualquier osa- 
do puede tomar el listado del progra- 
ma y mejorarlo para que sea más atre- 
vido u osado. 

El juego se compone de un listado 


UGANDO 
AL MUS 


el listado, por lo que cada vez que 
aparezca uno, hay que introducir el 
caracter gráfico correspondiente se- 
gún se muestra en la tabla que se in- 
cluye. 

Para aquellos interesados en modi- 
ficarlo damos la descripción de los 
bloques principales del programa: 

Líneas 10 a 100: presentación del 
programa y random 

Lineas 100 a 130: adjudicación de 
variables del programa. 

Línea 136: subrutina de cuenta de 
piedras y amarracos. 

Linea 150: adjudicación de varia- 
blesa la jugada. 

Líneas 200 a 490: subrutina que da 
valores a las cartas y las dibuja. 

Líneas 500 a 990: condiciones para 
que haya mus o no. 

Líneas 1000 a 1990: jugada a gran- 
de con las diversas condiciones de en- 


` 


/ principal que se da en la figura 1 уде 46 СОП 
/ una subrutina en lenguaje máquina Vido, órdago, paso, etc. в 
/ que se crea еп el listado de la figura 2 Líneas 2000 a 2990: lo mismo a pe- 
y que es la encargada de crear los. ca- ашейа. я 
racteres gráficos. Para crear una cinta Líneas 3000 a 3990: lo mismo a pa- 
que funcione basta teclear el primer Tes. y 
programa, salvarlo en cinta y a conti- . Líneas 4000 a 4990: lo mismo а 
nuación teclear el segundo y ejecutar- juego. 
lo, con lo cual graba en la cinta, a Líneas 5000 a 5990: cuenta final de 
с continuación del programa principal, puntos y vuelta a la línea 150. . 
с los códigos que posteriormente éste Línea 6000: subrutina que dibuja 
lee. las cartas de Spectrum. 
Hay que hacer notar que estos ca- Línea 7000: pregunta si hay nueva 
racteres se muestran ya definidos en partida y despedida. 

06 LET tot=0: LET totsp=0 138 IF pie>=15 AND piezx20 THEN 
109 LET sp=0 LET amar=amar+3:2 LET pie=pie-15 
TIR LEF ESO 139 IF pie>=10 AND рїе<15 THEN 
115 LET w=136 LET amar=amar+2: LET pie=pie-10 
130 REM TABLERO CONTADOR 140 IF pie>=5 AND ріе<10 THEN 
133 PRINT АТ 7, 12; "БРЕСТКУМ"; АТ LET amar=amar+1: LET pie=pie-5 
14,12 JUGADOR” 141 IF ріеѕр>=20 THEN LET amar 
134 FRINT АТ 18,0; "AMARRAC. "АТ sp=amarsp+4: LET piesp=piesp-20 
18,25; "PIEDRAS"; АТ 5,0; "FIEDRAS 142 IF piesp 5 AND piespizo T 


s "АМАККАС" 

60 TO 150 

O THEN LET amar=a 
pie-20 


НЕМ LET amarsp=amarsp+ 
=piesp-15 

ТЕ piesp> 
НЕМ LET amarsp=amarsp+2: 


LET pi 


O AND рівер“15 Т 
LET pi 


еѕр=р1еѕр-10 


144 


ЕМ LET amarsp=amarsp+1: 


IF ріеѕр>=5 AND piesp:10 TH 
LET pie 


sp=piesp-5 


145 
146 
148 


9,274" "; 
4,27 


149 
150 
153 
156 


LET cant= 


s=0: 


ET peg=0: 


159 
36): 


LET tot=amar*S+pie 
LET. totsp=amarspX*S5+piesp 
PRINT AT 19,23" ";атаг;АТ 1 
piesAT 4,23" "spiespsAT 
Е '; amar sp 

ВЕЕР .1, 30: RETURN 

REM VARIABLES DE LA JUGADA 
DIM c$(36): DIM d$(36)> 

EEF О: LET х-О: LET 1-0: 
LET cantsp=0: LET mu 
LET gran=0: LET gransp=0: L 
LET pegsp=0 
DIM + (8): DIM а(36): 
DIM с(9): DIM е(8): 


DIM ъс 
DIM g(8 


3: DIM р‹8) 
LET сФ=""; 


162 
165 
168 
200 
206 
209 
212 
ARTO 
213 
1;АТ 
“ 


214 
ззат 
215 
217 
218 
219 
220 


221 


LET ds="" 
LET noju=0 


КЕМ BARAJANDO 5 

50 SUB 212 

50 TO 560 

PRINT АТ 11,0;" REP 
CARTAS ": PAUSE t 
IF sp=0 THEN FRINT FLASH 
11,4; " JUEGAS TU! 


ТЕ өр-і THEN FRINT FLASH 
11,55" JUEGO YO 


FOR пя: то в 

ТЕ + (п) =п THEN 60 ТО 355 
LET а-ІМТ (КМ0ж9) +1 

LET b=INT (RND#4)+1 

FOR y=1 TO x 

IF a(y)=a AND b(y)=b THEN 


60 TO 218 


222 
223 
224 
225 
230 
233 
234 
235 
236 
242 
245 
250 
252 


NEXT y 
LET а(у) =а: 
КЕТ х=х+1 ` 
50 SUE 400 
КЕТ с(п)-а 
REHEARSE 
КЕТ g(n)=g 
LET р(п)-р 
REM DIBUJO DE CARTAS 

ТЕ 1>12 THEN LET 1=0 

ТЕ n>4 THEN 60 ТО 300 
REM DIBUJO CARTAS JUGADOR 
FOR m=14 TO 20 


LET b(y)=b 


253 PRINT ҒАРЕК 7;АТ m,9+13" 
NEXT т 
IF d$(n)="*" THEN LET ink= 
ТЕ d$tn)="4" THEN LET ink= 
1 
256 ТЕ d$(n)="w" THEN LET ink= 
6 ` 
257 IF d$(n)="*" THEN LET ink= 
а 
262 РАЙ ҒАҒЕК 7; INK 9ҘАТ 16 


а9%1;с%(п)ҘАТ 17,941; 
tn) 

265 PRINT РАРЕК 7; INK ink¿AT 
19,11%1;4%(п);АТ 20,11+1; INK 9; 
C$ (n) 


INK ink;d$ 


FLOT 71+1X8, 48: 


DRAW 25,0: 


0.-41: DRAW -25,0: DRAW 0,4 


6D то 350 


300 REM DIBUJO CARTAS SPECTRUM 


303 FOR m=1 TO 5 

304 PRINT PAPER 13 INK 7;АТ m, 
9+1; 

307 NEXT m 

319 PLOT 71+1x8,168: DRAW 25,0: 
DRAW 0,-41: DRAW -25,0: DRAW O, 
41 

321 60 TO 550 

350 REM DIBUJAR LAS 8 CARTAS 
353 LET 1=1+4 

354 BEEP .1,40 

356 NEXT n 

358 LET cant=e1(1)+e(2)+e(3)+e(4 


gran=gt 
gransp= 


БЕТ 
s БЕТ 


pea=p (1 
peqsp=p 


Тел ld ш 
А 
© 


RETURN 

REM VALORES 
IF a=1 THEN 
=1: LET р=6561: 
3 ТЕ a=2 THEN 


=9: LET р-729: Li 
409 IF a=4 THEN 
=27: LET p=243: 
412 IF а=5 THEN 
=81: LET p=81: Li 
415 IF a=6 THEN 
=243: LET p=2 
418 1F a=7 THEN 
9=729: LET р=9: 
ТНЕМ 
= 
ТНЕМ 
p=1: 
THEN 
2 THEN 
THEN 
THEN 


REM CONDICI 


Ccantsp=e (5) +е (6) +е (7) +е 


1) +9 (2) +а (3) «а (4 
9 (5) +9 (60 +6 (7) + 
+p (2) +р (3) +р (4) 


(5) +p (5) +p (7) +р ( 


CARTAS 
LET e= 
LET съ(п 


LET е-2: LET y 
LET c$(n)="3" 
LET e=4: LET g 


ET с®(п)="4" 


LET e LET y 
LET с®(п)="5" 

LET e 
ЕТ с$ (п 

ТЕТ е=7: LET y 
КЕТ c$(n)="7" 


LET e=10: LET 
LET c*(n)=" 10" 
LET e=10: LET 
LET с% (п) 


LET с% (п) 
LET 9$ п 
LET 94$ п 
LET 9$ (п 
LET 95 (п) = 


ONES DE MUS 


501 IF тиѕ>1 THEN 60 ТО 950 
502 DIM + (в) 

503 PRINT AT 11,03" 
NES MUS? S/N ч 

506 PAUSE O 

509 IF INKEY$="N" 
ооо 

512 ТЕ ІМКЕҮФ="5" THEN 60 TO 5 
зо 

515 ТЕ INKEY$<>"S" 
"М" THEN GO TO 503 
550 REM CONDICIONES MUS SF. 

555 IF cantsp>=30 THEN 60 TO 9 
оо 

556 IF (c(5)=9 AND c(6)=9) OR ( 
с(5) =9 AND с(7)=9) ОК (c(5)=9 АМ 
D c(8)=9) OR (c(é)=9 AND c(7)=9) 
ОК (c(6)=9 AND с(8)-9) OR (c(7) 
=9 AND c(B)=9) THEN 60 ТО 900 
559 IF (c(5)=8 AND c(6)=8) OR € 
c(5)=8 AND c(7)=8) OR (c(5)=8 АМ 
D с(8)-8) OR (c(6)=8 AND c(7)=8) 
OR (c(6)=8 AND c(B)=8) ок (c(7) 
=8 AND c(8)=8) THEN 60 ТО 300 
562 IF (с(5)=с(6) AND c(5)=c (7) 
) ОК (c(S)=c(7) AND c(5)=c(8)) O 
К (c(6)=c(7) AND c(5)=c(8)) THEN 

60 TO 900 

565 IF (с(5)-с(6) AND c(7)=c(8) 
) DR (с(5) же (7) AND c(6)=c(8)) O 


TIE 


THEN 60 TO 1 


AND ІМКЕҮФ< > 


К (с(5) =с (В) AND с(6)<с(7)) THEN 

60 то 900 

568 РКІМТ АТ 11,0; " YO там 
BIEN TENGO MUS ": PAUSE t 
571 PRINT AT 11,05 CAME 
10 DE CARTAS : PAUSE t 
572 РКІМТ AT 11,0; "MARCA CARTA 
"s FLASH 1;"А NO CAMBIAR"; FLASH 
03" 1-2-3-4" 

575 PRINT АТ 12,0;“ РАБА AC 
ABAR PULSA ENTER " 

578 INFUT +$ 

581 IF Ғж-"" THEN 60 TO 600 
587 LET f=VAL ++ 

590 LET f(f)=f 

593 GO TO 578 

200 REM SPECTRUM CAMBIA CARTAS 
603 ТЕ c(5)>6 THEN LET + (5) =5 
606 IF с(6) 26 THEN LET f(6)=6 
609 ТЕ с(7) 26 THEN LET 4(7)=7 
612 IF c(8)>6 THEN LET +(8)=8 
615 LET mus=mus+1 

621 LET x=x+1 


LET 1=0 
= PRINT AT 11,03" 


> 60 SUB 212 

z 60 TO 500 

PRINT АТ 11,03" 
FASTIDIATE! pus: 
GD TO 1000 

PRINT AT 11,03" 
MAS MUS! TE 
60 ТО 1000 

PRINT AT 11,03" 
GRANDE "з 
LET gr=0: LET env=0: 
8): LET j=8: LET ап=0 
1004 IF sp=1 THEN 60 TD 1200 
1006 PRINT AT 11,03" ENVIDAS 
A GRANDE ? S/N/O * 

1009 REM LECTURA CARTAS SPECTRUM 
1012 IF gransp>=17496 THEN LET 
305) =1 

1015 IF gransp>=14580 AND gransp 
<17498 THEN LET j(j)=2 

1018 ТЕ gransp>=13124 AND gransp 
<14580 THEN LET j(j)=3 

1021 IF gransp>=9478 AND gransp< 
13124 THEN LET j¡(3)=4 


FUES YO 
PAUSE t 


YA NO 
FAUSE + 


JUGA 
PAUSE t 
DIM ;‹ 


1023 ТЕ gransp>=8850 AND gransp< 
9478 THEN LET j(j)=5 

1025 IF gransp>=7292 AND gransp< 
8850 THEN LET j(j)=6 

1027 PAUSE O 

1030 ТЕ INKEY$="0" THEN LET an= 
0: 60 TO 1300 

1033 IF INKEY$="N" THEN LET an= 
1: LET по=1: 60 TO 1200 

1036 IF ІМКЕҮФ="5" THEN LET an= 


Өз 60 TO 1042 
1039 IF ІМКЕҮФ< 


0" OR INKEYS<>" 
S" THEN 60 TO 10 


1042 PRINT АТ 11,0;" 

CUANTO? "+ INPUT z 
1045 IF 2<2 THEN 60 TO 1042 
1046 LET env=env+1 

1048 LET gr=gr+z 

1051 IF j(;j)=1 AND RND>.S THEN 
60 TO 1450 

1054 IF j(j)=1 THEN LET ap=INT 
(RNDxX5)+2: 60 TO 1400 

1057 IF j(j)=2 AND RND>.75 THEN 
60 TO 1450 


1060 IF j(j)=2 THEN LET ap=INT 
(RNDA3)+2: 60 ТО 1400 

1063 ТЕ j(j)=š AND аг<6 AND RND? 
.85 THEN 60 ТО 1450 

1066 ТЕ 1 (4) <3 AND ағ<6 THEN LE 
Т ар-ІМТ «Емрж1)%2: 60 TO 1400 
1069 ТЕ ¿(3)=3 AND gr>6 THEN 60 
та 1100 
1042-15 аз 
O TO 1100 
1073 ТЕ RND<.15 THEN LET ap=2: 
50 TO 1400 1 

1075 60 TO 1150 

1100 PRINT АТ 11,05" 


)=4 AND gr<=4 THEN б 


QUIERO "s PAUSE +: 
60 TO 2000 

1150 PRINT AT 11,03" N 
О QUIERO "s PAUSE t 


1153 IF env=1 THEN LET gr=0: LE 
T pie=pie+1: 60 SUB w 

1156 60 TO 1990 

1200 REM JUGADOR NO ENVIDA 

1203 IF j(j)=1 AND RND>.4 THEN 
60 TO 1450 

1206 IF ¿(3)=1 THEN LET ap=INT 
(RNDX8) +2: 60 ТО 1400 

1209 IF j(j)=2 AND КМ0>.5 THEN 
60 TO 1450 

1212 IF ¿5(3)=2 THEN LET ap=INT 
(RNDX6)+2: 60 TO 1400 

1215 IF j(j)=š AND RND>.75 THEN 
60 TO 1450 > 


1218 IF ¿(3)=3 THEN LET ap=INT 


(RNDX4)+2: GO TO 1400 

1221 IF j(j)=4 AND RND>.9 THEN 
GO TO 1450 

1224 IF j(j)=4 THEN LET ap=INT 
(ЕМОЖЗ) +2: 60 TO 1400 


1227 ТЕ ¿(3)=5 THEN LET ap=INT 
(RNDA2)+2: 60 TO 1400 

1230 IF 303) =6 THEN LET ар-2: 6 
а TO 1400 

1231 IF c(5)=9 OR с(6)-9? ОК с(7) 


=9 ОК с(8)-9 THEN LET ар=2: БО 
TO 1400 

1232 IF RND<2 THEN LET ap=2: 60 
TO 1400 

1233 PRINT AT 11,03" Y0: P 
ASO A GRANDE "s PAUSE t 


1234 LET an=1 

1236 IF sp=1 AND mo=1 THEN LET 
no=0: GO TO 2000 

1237 IF sp=1 THEN 60 ТО 1006 


1239 БО TO 1990 

1300 REM ORDAGO 

1303 PRINT AT 11,03" ME OR 
DAGUEAS! EH!! "s PAUSE t 
1306 IF gransp>=13124 THEN 60 T 
О 1350 

1309 РКІМТ AT 11,03" N 
O QUIERO! "з PAUSE t 
1310 IF env=0 THEN LET pie=pie+ 


1: GO SUB w: LET gr=0: 60 TO 199 
о 

1312 IF env>=1 THEN LET ріе=ріе 
жағ: LET gr=0: 60 SUB w: 60 TO 1 
990 


1350 PRINT AT 11,03" 


"QUIERO! "s PAUSE t 
1353 PRINT AT 11,03" VAMOS A 
VER LAS CARTAS “: PAUSE + 


1356 60 SUB 6000 


1359 IF gransp>gran THEN PRINT 
АТ: 440” r ANTE GANEN 
"s PAUSE t: 60 TO 7000 
1362 ТЕ granspi=gran THEN PRINT 
AT 11,05% ME GANASTE 


"s FAUSE +: 60 ТО 7000 

1400 REM SPECTRUM ENVIDA 
1401 LET an=0 
1402 LET епу=епу+1 
1405 PRINT АТ 11,0;"YO TE ENVIDO 

"yap;s" QUIERES 5/М/Е/О": PAUSE 
о 

1406 LET gr=gr+ap 
1409 ТЕ INKEY$="S" 
000 


THEN 60 TO 2 


1410 ТЕ INKEYS$="N" AND env=1 THE 
N LET gr=0: LET piesp=piesp+1: 
60 SUB w: 60 TO 1990 

1412 IF ІМКЕҮФ-"М" AND env>1 THE 
N LET gr=gr-ap: LET piesp=piesp 


+аг: 60 SUB и: LET gr=0: 60 TO 1 
990 

1415 IF INKEY$="0" THEN 60 TO 1 
300 

1418 IF INKEY$="E" THEN LET env 
=env+1: 60 TO 1424 


1421 IF INKEY$<>"S" ОК INKEY$<>" 
М" ОБ INKEY$<>"0" THEN 60 TO 14 
оз 

1424 FRINT AT 11,03" 

CUANTO? "і INPUT г 
1427 IF 2<2 THEN 60 TO 1424 
1430 IF z<INT (RNDxX10)+2 THEN 6 
O TO 1442 
1455 PRINT АТ 11,0; "Е5 DEMASIADO 

РАБА MI, NO QUIERO ": PAUSE t: 
LET pie=pie+gr: 60 SUB w: LET gr 
но: PAUSE Е: 60 ТО 1990 
1442 FRINT AT 11,03" 
'QUIERO! : 
+=: PAUSE t: 60 TO 2000 
1450 REM ORDAGO DE SPECTRUM 
1451 LET an=0 


LET gr=gr 


1453 PRINT АТ 11,0; FLASH 13" 
'ORDAGO! QUIERES S/N Әб 
PAUSE O 


1456 ТЕ ІМКЕҮФ="М№" AND env=1 THE 
N LET piesp=piesp+gr: 50 SUB и: 
LET 9г=0: 60 ТО 1990 

1459 IF INKEY$="N" THEN LET pie 
sp=piesp+1: GO SUB w: LET gr=0: 
60 TO 1990 


1462 ТЕ ІМКЕҮФ="5" THEN 60 TO 1 
448 

1465 IF ІМКЕҮФ<>"5" ОК INKEYS<>" 
М" THEN 60 TO 1455 


1468 60 TO 1255 


1990 IF totsp>=25 THEN 60 TO 45 


1995 ТЕ tot>=25 THEN БО ТО 6600 


2000 PRINT AT 11,0; " JUGA 
DA A FEQUE FIA ": PAUSE + 
2005 LET eq=0: LET pe=0: LET env 
-О: DIM k(8): LET k=8 


2004 IF sp=1 THEN BD TO 2200 
2006 FRINT АТ 11,03" ENVIDAS A 
PEQUE НА? 5/М/О рм 


200% REM LECTURA CARTAS SPECTRUM 


2012 IF peqsp>= 17496 THEN “ШЕТ к 
(k)=1 
2015 
7496 
2018 


ТЕ pegsp>=14580 AND pegsp<1 
THEN LET k(k)=2 

ТЕ pegsp?=13124 AND pegsp<1 
4580 THEN LET k(k)=3 

2021 ТЕ peasp>=9478 AND рецвр<12 
124 THEN LET k(k)=4 
2023 IF pegsp>*=8850 AND 
78 THEN LET k(k)=: 

2025 IF pegsp>=7292 AND 
50 THEN LET k(k)=6 
2027 PAUSE O 


pegsp:94 


реа-р<88 


2030 IF INKEY$="0" THEN LET eq= 
O: GO TO 2300 

2033 IF ІМКЕҮФ-"М" THEN LET eq= 
1: LET no=1: 60 TO 2200 

2036 IF INKEY$="S" THEN LET eq= 


O: GO TO 2042 
2059 IF INKEY$<>"D" 


М" OR INKEY$<>"S" THEN 60 TO 20 
06 

2042 PRINT АТ 11,0;" 

CUANTO? "4 INPUT z 


2045 IF =<2 THEN 60 TO 2042 
2046 LET env=env+1 

2048 LET ре=ре+= 

2051 IF k(k)=1 AND КМО>.5 THEN” 
60 TO 2450 

2054 IF k(k)=1 THEN LET ap=INT 


(RNDXS) +2: БО TO 2400 

2057 IF k(k)=2 AND RND>.75 THEN 
60 TO 2450 

2060 IF k(k)=2 THEN LET ap=INT 
(ANDA3)+2: 60 ТО 2400 


2063 IF k(k)=3 AND petó AND RND> 
„85 THEN 60 TO 2450 

2066 IF k(kq=š AND ре<6 THEN LE 
Т ар-ІМТ (RNDxX1)+2: 60 TO 2400 
2069 ТЕ k(k)=3 AND pe>6 THEN 60 
TO 2100 

2072 IF k(k)=4 AND, pe< 
O TO 2100 

2073 IF RND<.15 THEN LET ар-2: 
60 TO 2400 

2075 60 TO 2150 

2100 ЕКТМТ AT 11,0; " 


4 THEN G 


QUIERO “: PAUSE t: 
60 TO 3000 
2150 РКІМТ AT 11,03" b N 
O QUIERO ": PAUSE t 
LET ре-о: LE 


ОК ТМКЕУ$< >". 


2156 60 ТО 2990 
2200 КЕМ JUGADOR NO ENVIDA 
203 IF k(k)=1 AND RND>.4 THEN 


60 TO 2450 

2206 ТЕ k(k)=1 THEN LET ap=INT 
(RNDXB)+2: GO TO 2400 

2209 IF k(k)=2 AND КМр>.5 THEN 
60 TO 2450 


2212 IF k(k)=2 THEN LET ap=INT 
(RND46) +2: GO TO 2400 
2215 IF k(k)=3 AND км0>.75 THEN 


60 TO 2450 
2218 IF k(k)=3 THEN LET ap=INT 
(RNDX4) +2: 60 TO 2400 


2221 IF k(k)=4 AND RND>.9 THEN 


60 TO 2450 
2224 IF k(k)=4 THEN LET ap=INT 
(RNDX3)+2: БО TO 2400 
LET ap=INT 
(ENDAR) +2: 60 TO 2400 
230 IF k(k)=6 THEN LET 
5 ТО 2400 


2231 IF c(5)=1 ОК с(6)<1 
=1 OR с(8) =1 THEN LET ар 
TO 2400 

2232 IF RND<.2 THEN LET ар-2: 6 
O TO 2400 


2233 PRINT АТ 11,0;" ХӨ? 
ASO A РЕЯЦЕ ча "1 PAUSE + 
2234 LET eq=1: 
2236 IF sp=1 AND no=1 THEN LET 
50 TO 3000 
IF sp=1 THEN 60 TO 2006 
БО TO 2990 
REM ORDAGO 
PRINT АТ 11,05" ME OR 


2153 IF епу-і THEN 
E рїе=рїетї: GO SUE w 


DAGUEAS! EH!! "s ¿PAUSE t 
2306 IF pegsp>=13124 THEN 60 TO 
2350 

2309 FRINT АТ 11,0;" N 
O QUIERO! "s PAUSE t 
2310 IF env=0 THEN LET pie=pie+ 
1: GD SUB w: LET pe=0: 60 ТО 299 
° 

2312 IF env>=1 THEN LET pie=pie 


+pe: 60 SUB w: LET pe=0: 60 TO 2 
990 

2350 FRINT AT 11,03" 

"QUIERO! "z PAUSE t 
2353 FRINT АТ 11,0; VAMOS а 
VER LAS CARTAS ": PAUSE % 


2356 GO SUB 6000 
2359 IF peqsp>peq THEN PRINT ат 
2.05“ ENTE: BONERS 
"s PAUSE t: GO TO 7000 
2362 IF pegspí=peg THEN FRINT A 
IS ME GANASTE 
": PAUSE t: GO TO 7000 
REM SPECTRUM ENVIDA 
LET eq=0 
2402 LET env=env+1 
2403 FRINT АТ 11,0; "ҮО ТЕ ENVIDO 
"sap;" QUIERES 5/М/Е/О": PAUSE 
o 
2406 LET ре=ре+ар 
2409 IF ІМКЕҮФ-"5" 
ооо 
2410 ТЕ ІМКЕҮФ-"М" AND епу-1 THE 
N LET pe=0: LET piesp=piesp+1: 
GO SUB 4: 60 TO 2990 
2412 ТЕ ІМКЕҮФ="М№" AND env>1 THE 
N LET pe=pe-ap: LET piesp=piesp 


2400 
2401 


THEN 60 TO 5 


+ре: 60 SUB и: LET pe=0: 60 TO 2 
990 

2415 IF INKEYS="0" THEN 60 TO 2 
300 

2418 ТЕ ІМКЕУФ-"Е" THEN LET env 
=env+1: 60 ТО 


2421 IF ІМКЕҮ% ОК INKEYS<>" 


N" ОК INKEYS<>"D" THEN GO ТО 24 
оз 
2424 FRINT АТ 11,03" 
CUANTO? "+ INPUT z 
IF 2<2 THEN 60 TO 2424 
ТЕ 2<1МТ (RNDX10)+2 THEN 6 


2492 

РКІМТ АТ 11.0; "Ев DEMASIADO 
FARA MI, NO QUIERO “: PAUSE t: 
LET ріе=ріе+ре: 60 SUE и: LET ре 


=O: PAUSE t: GO ТО 2990 

2442 FRINT AT 11,0;" 

ІШТЕН! Мз 

+z: PAUSE t: GO TO 3000 

2450 REM ORDAGO DE SPECTRUM 

2451 LET eq=0 

2453 PRINT AT 11,0; FLASH 13" 
'ORDAGO! QUIERES S/N “a 

PAUSE O 

2456 IF INKEY$="N" AND env=1 THE 

N LET piesp=piesp+pe: GO SUB w: 

LET pe=0: 60 TO 2990 

2459 IF INKEY$="N" THEN LET pie 

sp=piesp+i: 60 SUB w: LET pe=0: 

60 TO 2990 

2462 IF ІМКЕҮФ="5" THEN БО TO 2 

468 


ги 


ГЕТ pe=pe 


2465 IF 1МКЕҮФ<>"6" ОК 1МКЕУФ<>" 
М" THEN 60 ТО 2453 

2468 60 10 2353 

2990 IF totsp>=25 THEN 60 TO 65 
оо 

2995 1F tot>=25 THEN 60 ТО 6600 
3000 PRINT АТ 11,03% JUG 
ADA A PARES "s PAUSE t 
3003 LET pa=0: LET env=0: DIM ос 
3): LET o=2: DIM 40): LET q=3: 


LET res=0: LET resp=0 
3004 LET er=0: LET ersp=0 
3006 REM LECTURA FARES JUGADOR 
РАБА VISION AL RECUENTO 
3009 IF с(1)-с (2) OR с(1) =с(5) O 
R c(1)=c(4) THEN LET o(o)=1: LE 
T er=2Xc (1) 
3010 IF c(2)=c(Z) OR є(2) =с(4) Т 
НЕМ LET o(o)=1: LET er=2%c (2) 
3011 IF c(3)=c(4) THEN LET oto) 
ті: LET er=2łc (3) 
3012 IF (с(1)-с(2) AND c(1)=c (2) 
) OR (c(1)=c(2) AND c(i)=c(4)) Т 
HEN LET о(о2-2: LET ег+3жс(1) 
3013 IF с(2)-с (3) AND c(2)=c(4) 
THEN LET о(о)-2: LET er=3Xc(2) 
5015 IF (с(1)-с(2) AND ct3)=c (4) 
) ОК (c(1)=c(3) AND c(2=c (4)) 0 
R (с(13-с(4) AND с(2) =с (5)) THEN 
LET о(о) = 
3018 REM LECTURA FARES SPECTRUM 
3021 IF c(5)=c (6) OR c(5)=c (7) O 
К c(5)=c (В) THEN LET д(д)=1: LE 
Т ersp=2Xc (5) 
3022 IF с(6)=с(7) OR с(6)<с(в) Т 
НЕМ (ЕТ q(q)=1: LET ersp=2Xc (6) 


а 


IF c(7)=c18) THEN 
LET ersp=2Xc (7) 
3024 IF (с(5) =с(ӧ) AND c(5)=c (7) 
) ОВ (c(5)=c(6) AND c(S)=c(8)) Т 
НЕМ LET q(q)=2: LET ersp=3xc (5) 
3025 IF (с%43-с(7) AND с(6) =с (8) 
) THEN LET q(q)=2: LET егер-5Жс 
(6) 

3027 ТЕ (с(5)-с(6) AND c(7)=c (8) 
) OR (c(S)=c(7) AND c(6)=c(8)) O 
К (c(5)=c(8) AND c(6)=c(7)) THEN 
LET q(q)=3 4 
3070 REM COMIENZA JUEGO FARES 
3033 PRINT AT 11,03" TIEN 
ES PARES? S/N PAUSE O 
3036 IF INKEY$="N" AND (q(q)=1 O 
Е q(q)=2 ОК g(q)=3) THEN LET ге 
sp=1: 60 TO 3800 
3039 IF ІМКЕҮФ="5" AND (q(q)=1 0 
Е q(q)=2 OR q(q)=3) THEN PAUSE 
150: GO TO 3051 
3042 IF ІМКЕҮФ="5" 
ті: 60 10 3900 
3045 ТЕ INKEYS="N" 
950 
3048 IF INKEY$<>"S" 


LET q(q) 


THEN СЕТ кез 
THEN GO TO 3 


OR ІМКЕУФ<>" 


М" THEN 60 TO 3033 
3051 FRINT AT 11,0" YO TAMB 
IEN TENGO PARES “: PAUSE t 


3052 IF sp=1 THEN 60 TO 3200 
3053 PRINT AT 11,03" 
IDAS? S/N/O " 
3054 IF INKEYS="N" 
1: 60 TO 3200 
3055 IF INKEY$="0" 
300 

5057 ТЕ ІМКЕҮФ="5" 
061 

3059 ТЕ ІМКЕУ%<> 


ЕМУ 
PAUSE O 
THEN CET по= 


THEN 60 TO $ 


THEN 60 TO 3 


" OR INKEY$<>" 


О" OR INKEY$<>"S" THEN 60 TO 30 
55 

5061 PRINT AT 11,0;" 

CUANTO? "г INPUT 2 


306= IF 2<2 THEN 60 ТО 3061 
3064 LET env=env+1 

3065 LET ра=ра+= 

3067 IF д(9) =5 AND gransp>=13124 
THEN GO TO 3450 

3069 IF q(q)=3 THEN LET ap=INT 
(RNDX8)+2: БО TO 2400 

3071 IF q(q)=2 AND gransp>=2187 
THEN BD TO 2450 

3073 IF q(q)=2 AND RND>.75 THEN 


50 TO 3450 
2075 IF q(q)=2 THEN 
(RNDX%4) +2: GO TO 3400 
2077 iF ata)=1 AND gransp+=13122 
AND RND>.85 THEN 50 ТО 3450 
3079 IF ata)=1 AND ағапвр2-ізіг2 
THEN LET ар 60 TO 3400 
3081 IF q(q)=1 AND gransp>=4274 
THEN БО TO 3100 
3082 IF RND<.15 THEN LET ap=2: 
50 TO 3400 
3083 60 TO 3150 
3100 PRINT AT 11,05" 
QUIERO 2 
60 TO 4000 


LET ар-ІМТ 


FAUSE t: 


3150 РКІМТ AT 11,03” N 


Ü QUIERO "PAUSE Е 
3153 IF env=1 THEN LET pa=0: 
T pie=pie+1: 60 SUB w 

3154 LET res=1 

3156 60 TO 3990 

3200 REM JUGADOR NO ENVIDA 

3203 IF q(q)=š AND gransp>=13124 
THEN 60 TO 3450 

3206 IF q(q)=š AND gransp>=4374 

AND RND>.3 THEN 60 TO 2450 

3209 IF q(q)=š AND gransp>=1458 

AND RND>.5 THEN 60 ТО 3450 

3212 IF qí9)=3 AND gransp>=486 А 

ND RND>.7 THEN (GO TO 3450 


LE 


3215 IF q(q)=3 AND RND>.85 THEN 
60 TO 3450 

3218 IF 9(9)=5 THEN LET ap=1NT 
(RNDX10)+2: GO ТО 3400 


3221 IF q(q)=2 AND gransp>+=19683 
AND RND>.S THEN GO ТО 3450 


4 IF q(q)=2 AND gransp>=19683 

ЕМ LET ар-ІМТ (RNDx6)+2: СО 
TO 3400 
5227 IF q(q)=2 AND gransp+=6561 
AND RND>.7 THEN GO TO 3450 
3230 IF q(q)=2 AND gransp>=6561 
THEN LET ap=INT (RNDxX4)+2: GO T 
O 3400 
3233 IF q(q)=2 AND gransp>=2187 
AND RND>.? THEN GO TO 5450 
3236 IF q(q)=2 AND gransp 
THEN LET ap=INT (RNDX3)+: 
0 3400 

| 3239 IF q(q)=2 THEN LET ap=INT 


(км0х2) +2: 60 TO 5400 

3242 IF q(q)=1 AND gransp+=13122 
AND ЕМр>.5 THEN 60 TO 3450 
3245 IF q(q)=1 AND gransp>+=13122 


THEN LET ap=INT (КМ0ж4) +2: GO 
TO 3400 

3248 IF q(q)=1 AND gransp>=4374 
AND RND>.85 THEN 60 TO 3450 
3251 IF q(q)=1 AND gransp 
THEN LET ap=I1NT 
O 3400 

3254 IF q(9)=1 AND gransp>=1458 
AND RND>.295 THEN 60 ТО 3450 
3257 IF а(а)<1 AND gransp>=1458 
60 T 


374 
60 T 


(RANDAZ) +: 


THEN LET ap=INT (КМОЖ1) +2: 
0 3400 

3260 1F RND<.2 THEN LET ар-2: 6 
0 TO 3400 

3280 РКІМТ АТ 11,05" YO 
PASO A PARES "s PAUSE t 
3283 1F sp=1 AND по=1 THEN LET 
по=0: 60 ТО 4000 

3284 IF sp=1 THEN 60 TO 3053 
3286 GO TO 3990 

3300 REM ORDAGO 

3303 PRINT AT 11,03" ME OR 
DAGUEAS! EH!! "s PAUSE t 
3306 IF q(q)=š THEN 60 TO 3350 
3309 IF q(q)=2 AND RND>.4 THEN 
60 TO 3350 

3310 ТЕ q(q)=1 AND gransp>=13121 
THEN 60 TO 3350 

3312 PRINT AT 11,0" N 
O QUIERO! ": PAUSE t 
3313 LET res=1 

3314 IF env=0 THEN LET pie=pie+ 
1: GO SUB w: LET pa=0: GO TO 399 
o 

3315 ТЕ епу>=1 THEN LET ріе=ріе 


+ра: GO SUB w: LET pa=0: 

290 

3350 PRINT АТ 11,05" 

¡QUIERO! “: PAUSE t 
3353 PRINT AT 11,03" VAMOS A 
VER LAS CARTAS ма PAUSE t 


3356 60 SUB 6000 

5559 IF q(q)=3 AND (о(о)-2 OR ос 
0)=1) THEN 60 TO 3380 

3361 IF q(q)=2 AND o(o)=1 THEN 
60 TO 3380 ë 
3363 IF q(q)=š 


«AND о(о) =5 AND gr 


ansp>gran THEN GD TO 3380 

3365 IF q(q)=2 AND о(о) =2 AND gr 
ansp>gran THEN 60 TO 3380 

3367 IF q(q)=1 AND o(o)=1 AND gr 
ansp>gran THEN 60 TO 3380 

3369 PRINT AT 11,03" ME 
HAS GANADO! "s PAUSE +: 
60 TO 7000 

3380 PRINT AT 11,05" TE 
HE GANADO "s PAUSE +: 


50 TO 7000 
3400 REM SPECTRUM ENVIDA 

3402 LET env=env+1 

3403 PRINT AT 11,0;"YO TE ENVIDO 
"saps" QUIERES 5/М/Е/0": PAUSE 
о 

3406 LET pa=patap 
3409 IF INKEYS="S" 
ооо 

3410 IF INKEYS: 
N LET ра=0: LET piesp=piesp+1: 
GO SUB и: LET resp=1: 60 ТО 3990 
3412 ТЕ ІМКЕҮФ-"М" AND env>1 THE 
N LET ра=ра-ар: LET piesp=p1esp 
+ра: LET pa=0: LET resp=1: 60 SU 
E w: 60 TO 3990 
3415 IF ІМКЕҮФ-"О" 


THEN 60 TO 4 


" AND env=1 THE 


THEN 60 TO $ 


:300 


3418 IF INKEYS="E" 
=env+1: 60 TO 3424 
3421 IF ІМКЕҮФ<>"5" 
N" ОК ІМКЕҮФ<>"0" 
оз 

3424 PRINT АТ 11,03" 
CUANTO? "s INPUT z 
3427 IF z<2 THEN GD TO 3424 
3430 IF z<INT (RND*1O)+2 THEN 6 
O TO 3442 

3433 PRINT AT 11,0 
PARA MI, 
LET pie=pie+pa: 


THEN LET env 


ОК INKEYS< >" 
THEN 60 TO 34 


"ES DEMASIADO 
NO QUIERO ": PAUSE t: 
GO SUE w: LET ра 


— 
60 TO 3 


LET res=1: PAUSE t: 60 ТО 39 
90 
3442 PRINT АТ 11,04" 
QUIERO! "s LET pa=pa 
+ PAUSE t; 60 TO 4000 
3450 КЕМ ORDAGO DE SPECTRUM 
3453 PRINT АТ 11,0; FLASH 13" 
"ORDAGO! QUIERES S/N "o 
FAUSE O 
3456 IF ІМКЕҮФ-"М" AND env=1 THE 
N LET p1esp=piesp+pa: LET resp= 
1: 60 SUE м: LET pa=0: 60 TO 399 


459 IF ІМКЕУФ-"М" THEN LET pie 
sp=piesp+1: 60 SUB w: (ЕТ ра-0: 


LET resp=1: 60 TO 2990 
3462 IF ІМКЕҮФ="5" THEN 60 TO 3 
468 


3465 ТЕ INKEYS$<>"S" 
№" THEN GO TO 3453 
3468 60 TO 3353 


ОК ІМКЕҮФ< >" 


3800 ектмт AT 11,03" YO 

TENGO PARES ": PAUSE t: 

6O TO 4000 

3900 PRINT AT 11,03" YO N 
О TENGO FARES ": PAUSE +: 

60 TO 4000 

3950 PRINT AT 11,03" YO N 
O TENGO PARES "s LET nopa= 


1: PAUSE t: GO TO 4000 

3990 IF totsp>=25 THEN 60 TO 65 
оо 

3995 IF tot>=25 THEN 60 TO 6600 
4000 PRINT AT 11,05" JUG 
ADA A JUEGO "s PAUSE t 
4003 LET ju=0: DIM r ( 
В): LET r=8: LET ego= LET egos 


REM LECTURA JUEGO SPECTRUM 
4008 IF cantsp=31 THEN LET r (r) 


4010 IF cantsp=32 THEN LET r (r) 


4012 IF cantsp=40 THEN LET r (r) 


cantsp=37 THEN LET г(ғ) 


cantsp=36 THEN LET ғ(ғ) 


cantsp=35 THEN LET r (r) 


cantsp=34 THEN LET г (r) 


4022 ТЕ cantsp=33 THEN LET r (r) 
=8 

4030 REM COMIENZA EL JUEGO 

4033 PRINT AT 11,03" TIENE 
S JUEGO? S/N "т PAUSE O 
4036 IF ІМКЕҮФ-"М" AND cantsp>=3 

1 THEN LET egosp=1: 60 TO 4800 
4039 ТЕ INKEY$="N" AND сапёѕр<51 

THEN 60 TO 4950 
4042 IF INKEYS$="S" AND cantsp<31 

THEN LET ego: GO TO 4900 
4045 ТЕ ІМКЕҮ%- AND cantsp>=3 
1 THEN 60 TO 4051 
4048 ТЕ INKEYS$<>"S" 
N" THEN 60 TO 4033 
4051 PRINT AT 11,0; YO TAMB 
IEN TENGO JUEGO "s PAUSE t 
4052 IF sp=1 THEN 60 TO 4200 
4055 PRINT АТ 11,04" 
IDAS? S/N/O us 
4054 IF ІМКЕҮФ-"М" 
1: GO TO 4200 
4055 IF INKEY$="0" 
300 
4057 IF INKEY$="S" 
061 
4059 ТЕ ІМКЕҮФ< > ОК ІМКЕҮФ< >" 
О" OR INKEYS<>"N" THEN 60 TO 40 
55 
4061 PRINT АТ 11,0;" 

CUANTO? "= ЕМРОТ 2 
4063 IF z<2 THEN 60 TO 4061 
4064 LET env=env+1 
4065 LET ju=ju+z 
4057 ТЕ rír)=1 AND RND>.3 THEN 
GD TO 4450 
4069 IF rír)=1 
(RNDK10) +2: 60 
4071 IF r(r)=2 


OR ІМКЕҮФ< >" 


ЕМУ 
PAUSE O 
THEN LET no= 
THEN 60 TO 4 


THEN GO TO 4 


THEN LET ap=INT- 
TO 4400 
AND RND>.ó6 THEN 


60 TO 4450 

4073 IF г(г)-2 THEN LET ap=INT 
(RNDX6)+2: GO ТО 4400 

4075 ТЕ г (г) -3 THEN LET ap=INT 
(ANDX4)+2: GO TO 4400 

4077 IF rí(r)=4 THEN LET ар-іМТ 
(RANDX2)+2: 60 ТО 4400 


4079 IF RND<.15 THEN LET ар-2: 
50 TO 4400 

4081 IF KND<.7 THEN 60 ТО 4150 
4100 FRINT AT 11,0 
QUIERO ": 
60 TO 5500 

4150 PRINT АТ 11,0;” N 


Ü QUIERO! “: PAUSE t 
4151 LET ego=1 

4155 ТЕ env=1 THEN LET ju=0: LE 
Т pie=pie+1: 60 SUB w: 60 TO 499 
о 

4200 КЕМ JUGADOR NO ENVIDA 


4203 IF r(r)=1 AND RND>.2 THEN 


60 ТО 4450 

4206 IF r(r)=1 THEN LET ap=INT 
(RNDK10) +2: GO TD 4400 

4209 IF rír)=2 AND RND>.5 THEN 
GO TO 4450 

4212 IF r(r)=2 THEN LET ap=INT 
(RND#8)+2; GO ТО 4400 


4215 IF r(r)=3 AND RND>.75 THEN 
60 TO 4450 
4218 IF r(r)=3 THEN LET ap=INT 


(RNDX6)+2: 60 TO 4400 

4221 IF r(r)=4 AND RND>.9 THEN 
60 TO 4450 

4224 IF rír)=4 THEN LET ap=INT 


(км014) +2: GO TO 4400 
4227 IF г(г)=5 THEN LET ар-тмт 
(кмОх2) +2: GO ТО 4400 


4230 IF rír)=6 THEN LET ар=2: G 

0 TO 4400 

4233 IF r(r)=8 AND KND>.95 THEN 
60 TO 4450 

4236 IF RND<.2 THEN LET ар-2: G 
O TO 4400 


4239 PRINT АТ 11,03" Yo 
PASO A JUEGO "s PAUSE t 
4242 IF sp=1 AND no=1 THEN LET 
no=0: GO TO 5500 


4243 IF sp=1 THEN 60 TO 4053 
4245 60 TO 4990 


4300 REM ORDAGO 

4303 PRINT АТ 11,0;" ME 
ORDAGUEAS! EH? "s PAUSE t 

4306 IF r(r)=1 AND RND>.4 THEN 

60 TO 4350 

4309 IF r(r)=2 AND RND>.ó6 THEN 

60 TO 4350 

4312 IF r(r)=3 AND RND>. 75 THEN 
60 TO 4350 

4315 IF r(r)=4 AND RND>.9 THEN 

GO TO 4350 

4318 PRINT АТ 11,0;" 

NO QUIERO! "s 
4319 LET ego=1 

4320 IF env=0 THEN LET pie=pie+ 


PAUSE t 


1: 60 SUB w: LET ju=0: 60 ТО 499 

o 

4321 IF env>=1 THEN LET pie=pie 

+jus 60 SUB w: LET ju=0: 60 TO 4 
990 

4550 PRINT АТ 11,0;" 

¡QUIERO! ! : PAUSE t 
4555 PRINT АТ 11,0; VAMOS A 
VER LAS CARTAS "s PAUSE +: 


60 SUB 6000 

4356 IF cantsp=31 AND cant<>31 T 
HEN 60 TO 4370 

4357 IF cantsp=32 AND (cant<>31 
OR cant=32) THEN 60 TO 4370 
4358 IF cantspocant THEN 60 TO 
4370 


4559 PRINT AT 11,03" ME 

HAS GANADO! "s PAUSE t: 

со ТО 7000 

4370 FRINT AT 11,03" HETE 
HE GANADO! ! "з PAUSE +: 
60 TO 7000 


4400 REM SPECTRUM ENVIDA 

4402 LET env=env+1 

4403 PRINT АТ 11,0;"YO TE ENVIDO 
"saps" QUIERES Ѕ/М/Е/0": PAUSE 

о 

4406 LET ju=jutap 

4409 ТЕ INKEYS="S" 

500 

4412 IF INKEYS="N" AND env=1 THE 


THEN во TO 5 


М LET іш-О: LET piesp=piesp+1: 
60 SUE w: LET egosp=1: 60 TO 499 
° 


4415 ДЕ ІМКЕҮФ="М" AND env>1 THE 
N LET piesp=piesp+ju-ap: GO SUB 
w: СЕТ ju=0: LET eqosp=1: 60 TD 
4990 


4418 IF INKEY$="0" THEN БО TO 4 


300 
4419 1F INKEY$="E" THEN LET env 
=env+1: 60 TO 4424 

4421 IF INKEY$<>"S" OR INKEY$< >" 
N" OR INKEY$<>"D" OR INKEY$<>"E" 
THEN 60 TO 4403 

4424 PRINT AT 11,03” 

CUANTO? "I SINPUT 2 


4427 IF 2<2 THEN 60 TO 4424 
4430 IF z<1NT (RNDxX10)+2 THEN 6 
О ТО 4442 


4433 PRINT АТ 11,0;" ES DEMASIAD 


O PARA MI, NO QUIERO": PAUSE t: 
LET pie=pie+ju: 60 SUB и: LET ju 
шО: LET ego=1: GO ТО 4990 

4442 PRINT AT 11,03” Ц 
¡QUIERO! ! ": PAUSE +: 
LET ju=ju+z: 60 ТО 5500 


4450 REM ORDAGO DE SPECTRUM 

4453 PRINT АТ 11,03" ORDAGO 
1 QUIERES? S/N ": PAUSE O 
4456 IF INKEYS="N" AND env=1 THE 
N LET piesp=piesp+ju: 60 SUB и: 
LET ju=0: LET egosp=1: 60 TO 49 
90 

4459 ДЕ INKEYS="N" THEN LET pie 
sp=piesp+1: GO SUB и: LET ju=0z 
LET egosp=1: 60 ТО 4990 

4462 IF INKEYS="S" THEN GÜ TO 4 
468 

4465 1F INKEYS$<>"S" 
N" THEN 60 TO 4453 
4468 60 ТО 4353 


OR ІМКЕУФ<>" 


4800 PRINT AT 11,03" хо 

TENGO JUEGO ": PAUSE t: 

60 TO 5500 

4900 FRINT AT 11,03" YO NO 
TENGO JUEGO! "s PAUSE +: 

60 TO 5500 

4950 PRINT AT 11,0;" YO NO 
TENGO JUEGO! ": LET noju= 


1: PAUSE t: 50 ТО 5000 

4990 IF totsp>=25 THEN 60 TO 65 
оо 

499% IF tot>=25 THEN 60 TO 6600 
4996 6O TO 5500 

5000 PRINT АТ 11,0; " 
ADA A PUNTO НЕ 
5003 LET pu=0: 
5): LET 5=5: 
p=0 

5006 IF cantsp=30 THEN LET 5(5) 


JUG 
PAUSE t 
LET env=0: DIM sx 
LET nto=0: LET ntos 


5009 IF cantsp=29 THEN LET 5(5) 
5012 IF cantsp=28 THEN LET s(s) 
5015 1F cantsp=27 THEN LET 5(5) 
5018 IF cantsp=26 THEN LET 5(5) 
5020 IF sp=1 THEN 60 TO 5200 

5030 PRINT AT 11,0;" ENVIDAS 
A PUNTO? S/N/D/ ": PAUSE O 


5033 ТЕ ІМКЕҮФ-"М" 
1: 60 TO 5200 


THEN LET no= 


5056 ТЕ INKEY$="0" THEN 60 TO 5 
300 
5039 ТЕ INKEY$="S" THEN 60 TO 5 
045 


5042 IF INKEY$<>"N" ОК ІМКЕҮФ<>" 
0" OR INKEY$<>"S" THEN 60 TO 50 
30 

5045 PRINT AT 11,0;" 

CUANTO? "s INPUT 2 
5048 IF =<2 THEN 60 TO 5045 
5050 LET env=env+1 
5051 LET pu=pu+z 
5054 IF s(s)=1 AND RND>.S5 THEN 
60 TO 5450 
5057 IF s(s)=1 THEN LET ap=INT 


(км0х4) +2: БО TO 5400 
5060 IF s(s)=2 THEN LET ap=1NT 
(RNDX2)+2: 60 TO 5400 


5065 ДЕ s(s)=3 THEN LET ар=2: 6 
0 то 5400 
5066 1F КМ0<.1 THEN 
0 TO 5400 


ТЕТ ар=2: 6 


5069 1F KND>.3 THEN 
5100 PRINT AT 11,03% 


60 TG 5150 


QUIERO "s PAUSE t: 
60 TO 5500 

5150 PRINT AT 11,03” N 
O QUIERO! PAUSE t 


5151 LET nto=1 

5155 IF env=1 THEN LET pu=0: LE 
Т pie=pie+1: GO SUB w: GO ТО 549 
o 

5200 REM JUGADOR NO ENVIDA 

5203 IF s(s)=1 AND RND>.S THEN 
60 TO 5450 

5206 IF =(5) =1 THEN 
(ЕМОжА4) +2: 60 ТО 5400 
5209 IF s(s)=2 AND КМ0>.75 THEN 
60 TO 5450 

5212 IF s(s)=2 THEN LET ap=INT 
(RNDX2)+2: GO ТО 5400 

5215 IF s(s)=3 AND KND>.9 THEN 
GO TO 5450 

5218 ТЕ s(s)=3 THEN LET ар-2: 6 
О TO 5400 

5221 IF KND<.3 THEN 
О TO 5400 

5239 PRINT AT 11,03" хо 
PASO A PUNTO “: PAUSE t 
5242 IF sp=1 AND mo=1 THEN LET 
no=0: 60 TO 5500 

5243 IF sp=1 THEN 60 TO 5030 
5245 60 TO 5490 

5300 КЕМ ORDAGO 


LET ap=INT 


LET ар-2: 6 


5303 PRINT AT 11,03" ME 
ORDAGUEAS! EH? ": PAUSE t 

5306 IF s(s)=1 AND RND>.S THEN 
60 TO 5350 

5309 IF s(s)=2 AND КМр>.75 THEN 
60 TO 5350 


5312 IF s(s)=3 AND RND>.9 THEN 
6O TO 5350 

5318 PRINT AT 11,03" 
NO QUIERO! Н 
5519 LET nto=1 


PAUSE t 


THEN LET pie=pie+ 


: 60 SUB w: LET pu=0: 60 TO 549 


5321 IF епу>=1 THEN LET pie=pie 
Фри: 60 SUB w: LET pu=0: 60 TO 5 
490 


5350 PRINT AT 11,03" 


QUIERO! ! : PAUSE t 
5555 PRINT AT 11,03" VAMOS A 
VER LAS CARTAS “: PAUSE ts 


60 SUE 6000 
5556 IF cantsp>cant THEN 60 TO 
5370 


5559 PRINT АТ 11,0;" МЕ 

HAS GANADO ! "з PAUSE +: 

60 TO 7000 

5570 PRINT AT 11,03" ВТЕ 
НЕ GANADO! ! "s PAUSE ts 

60 TO 7000 


5400 REM SPECTRUM ENVIDA 

5402 LET env=env+1 

5403 PRINT АТ 11,0;"YO TE ENVIDO 
"saps" QUIERES 5/М/Е/0": PAUSE 

o 

5406 LET pu=pu+ap 

5409 IF ІМКЕҮФ="5" THEN 60 TO 5 

500 

5412 IF INKEY$="N" AND env=1 THE 

N LET pu=0: LET piesp=piesp+1: 

60 SUB w: LET ntosp=1: 60 TO 549 

o ` 

5415 IF ІМКЕҮФ-"М- AND env>1 THE 

М LET piesp=piesp+pu-ap: GO SUB 
w: LET ри=0: LET ntosp=1: 60 TO 
5490 

5418 ТЕ ІМКЕҮФ="0" THEN 60 TO 5 

300 y 


5419 IF INKEYS="E" THEN LET env 
=env+1: 60 ТО 5424 
5421 IF INKEYS<>"S" OR INKEYS<>" 


М" ОК ІМКЕҮФ< >"0" 

THEN GO TO 5403 
5424 PRINT АТ 11,03" 

CUANTO? "s INPUT z 
5427 IF z<2 THEN 60 TO 5424 
5450 IF г<ІМІ (RNDX10)+2 THEN 6 
О TO 5442 
5433 PRINT AT 11,0:" ES DEMASIAD 


OR ІМКЕҮФ<>"Е 


O РАКА MI, NO QUIERO": PAUSE +: 
LET pie=pie+puz 60 SUB и: LET ju 
=0: LET nto=1: 60 TO 5490 

5442 PRINT АТ 11,03" Е 
"QUIERO! ! “s PAUSE t: 
LET pu=pu+z: 60 TO 5500 


5450 REM ORDAGO DE SPECTRUM 

5455 PRINT АТ 11,0; ORDAGO 
!! QUIERES? S/N ": PAUSE O 
5456 IF ІМКЕҮФ-"М" AND env=1 THE 

М LET ріеѕр=ріеѕр+ри: GO SUB и: 
LET ри=0: LET пЕ озр-1: GO TO 54 
90 

5459 IF INKEYS$="N" THEN LET pie 
sp=piesp+1: 60 SUB w: LET pu=0: 


ف 


LET ntosp=1: 60 TO 5490 

5462 IF INKEY$="S" THEN 60 TO 5 
468 
5465 IF 
М" THEN 
5468 


INKEY$<>"S" 
60 TO 5453 
TO 5353 

totsp>=25 THEN 60 TO 65 


OR ІМКЕҮФ< >" 


5495 IF tot>=25 THEN БО TO 6600 
PRINT АТ 11,0;" VAM 
CONTAR PAUSE t 
PRINT AT 11,0; VAMOS А 
¢ LAS CARTAS ": GO SUB 60 
PAUSE t 
IF an=1 THEN PRINT АТ 11,0 
g HEMOS PASADO A GRANDE 
": PAUSE +: 60 TO 5518 
PRINT АТ 11,0;" GRANDE, 
AFOSTADAS "; дг: PAUSE t 
IF gr=0 THEN 60 ТО 5550 
IF gransp>gran THEN PRINT 
AT 11,03" TE LAS GANO! 
: LET piesp=piesp+gr: 
60 SUB w: PAUSE +: 60 ТО 5520 
5515 IF granspí=gran THEN PRINT 
АТ 11,03" ME LAS GANAS 
": LET pie=pie+gr: 60 

SUB w: PAUSE t: 60 TO 5520 
5518 IF gransp>gran THEN 


PIE 


PRINT 


АТ 11,0;" TENGO LA GRANDE MA 
YOR! "s LET piesp=piesp+1: F 
AUSE t: GO SUB w: 60 TO 5520 


5519 ТЕ gran>gransp THEN PRINT 
AT 11,05" TIENES LA GRANDE M 
AYOR ": LET pie=pie+1: PAUSE 
t: GD SUB w: GO TO 5520 
IF totsp>=25 THEN 60 TO 65 
IF tot>=25 THEN 60 TO 6600 
IF eo=1 THEN PRINT АТ 11,0 
s" HEMOS FASADO A PEQUE А 
"s PAUSE t: 60 TO 5565 

5551 PRINT АТ 11,0:" PEQUENA, РІ 
EDRAS AFOSTADAS ez PAUSE t 
5553 1F pe=0 THEN 60 TO 5600 


5556 {Е редер>ред THEN PRINT АТ 
11.0:" ТЕ LAS GANO! 
"г LET piesp=piesp+pe: GO 
SUB w: PAUSE t: 60 TO 5570 


5559 IF peg>pegsp THEN PRINT АТ 


11,03" ME LAS GANAS 
": LET pie=pie+pe: 60 SUB 
w: PAUSE t: 60 TO 5570 


5565 ТЕ рецер>ред THEN PRINT АТ 


11,03" TENGO LA PEQUEFIA MEN 
OR "s LET piesp=piesp+1: PAU 
SE t: GO SUB и: 60 TO 5570 


5568 IF реа>реавр THEN PRINT AT 
11,03” TIENES LA PEQUE ПА МЕ 

NOR : LET ріе=ріе+1: PAUSE t 

SUB w: GO TO 5570 

IF totsp>=25 THEN 60 TO 65 


IF tot>=25 THEN 60 TO 6600 

ТЕ mopa=1 THEN РБІМТ АТ 11 
NO HAY PARES 

“gs PAUSE +: БО TO 5700 

5604 1F res=1 AND о(о) =5 THEN Р 


RINT AT 11, LLEVAS: DU 
PLES! "; LET ріе=ріе 

GO SUB w: PAUSE t: 60 TO 5690 
5606 IF res=1 AND о(о)-2 THEN Р 
RINT АТ 11,0; " LLEVAS ME 
DIAS! "s LET pie=pie+2: 
60 SUB w: PAUSE t: GO TO 5690 
5608 ТЕ res=1 AND o(o)=1 THEN Р 
RINT АТ 11,03" LLEVAS PA 
ВЕБ! “(ЕТ ріе=ріе+1: 
50 SUB w: PAUSE t: 60 TO 5670 


5610 ТЕ resp=1 AND q(g)=3 THEN 


PRINT AT 11,03" LLEVO D 
UPLES ": LET piesp=pies 
p+3: 60 SUB w: PAUSE t: 60 TO 56 
90 


5612 IF resp=1 AND q(q)=2 THEN 


PRINT AT 11,0; " LLEVO М 
EDIAS ": LET piesp=pies 
p+2: 60 SUB w: PAUSE t: 60 TO 56 
90 

5614 IF resp=1 AND q(q)=1 THEN 
PRINT АТ 11,035" LLEVO Р 
ARES "s LET piesp=pies 
p+1: 60 SUB w: PAUSE t: 60 TO 56 
90 

5616 PRINT AT 11 " PARES, PIED 
RAS APOSTADAS spa: PAUSE 150 


5618 1F pa=0 THEN 
5620 IF q(q)=3 AND 
ansp>gran THEN 60 
р1езр=р1езр+ра+5: 
ЗЕ t: 60 TO 5690 
Sé21 IF а(а)-5 AND 
апвр<ағап THEN GO 
pre=pie+tpa+3: БО SUB и: 
: 59 То 5690 
5622 IF а(а)<3 


60 TO 5650 

oto)=3 AND gr 
SUB 5680: LET 
60 SUB w: PAU 


oto)=3 AND ағ 
SUB 5685: LET 
PAUSE t 


AND (o(o)=2 ОК о( 


SUB 5680: 
60 SUE и: 


LET ре 
PAUSE t 


0)=1) THEN 60 
Sp=p1esp+pa+3: 
: 60 TO 5690 

5623 IF о(0) =5 AND (а(а)<2 OR q< 
q)=1) THEN GO SUB 5685: LET pie 
=pie+pa+š: 60 SUB w: PAUSE t: GO 
TO 5690 

5624 IF q(q)=2 
sp>er THEN 60 
sp=piesp+pa+2: 
: 60 ТО 5690 


AND о(о) =2 AND er 
SUB 5680: LET pie 
GO SUB w: PAUSE t 


AND oto)=2 AND er 
SUB 5685: LET pie 
GO SUB w: PAUSE t: 60 


5625 ТЕ q(q)=2 
sersp THEN 60 
=p1e+pa+2: 
TO 5690 


5626 IF q(q)=2 AND о(о)<1 THEN 
GO SUB 5680: LET ріеѕр=р1еѕр+ра+ 
2: 60 SUB w: PAUSE +: 60 TO 5690 
5627 IF о(о)-2 AND q(q)=1 THEN 
60 SUE 5685: LET pie=pie+pa+2: 6 
O SUB ws PAUSE tz 60 TO 5690 
5628 IF а(9)=1 AND o(o)=1 AND er 
sp>er THEN 60 SUB 5680: LET pie 
sp=p1esp+pa+tl: GO SUE w: PAUSE t 
: 60 TO 5690 


5629 IF а(а)<1 AND oto)=1 AND er 


>ersp THEN БО SUB 5685: LET pie 
=р1е+ра+1: GO SUB м: PAUSE t: 50 
TO 5690 


5630 IF q(q)=1 AND o0(0)=1 AND er 
sp=er AND sp=1 THEN 50 SUB 5680 
: LET р1е5р=р1езр+ра+1: 60 SUB w 
z FAUSE t: 60 TO 5690 

5631 1F q(q)=1 AND о(о) =1 AND er 
sp=er AND sp=0 THEN 60 SUB 5685 


: LET pre=pie+pa+1: 60 SUB w: PA 
USE +: GO TO 5690 
5650 IF q(q)=1 AND 
sp>er THEN 60 SUB 
ѕр=ріеѕр+і: 60 SUE 
О TO 5690 

5652 ТЕ q(q)=1 
>ersp THEN GO 
=pie+1: 60 SUE 
5690 . 

5654 IF q(q)=1 AND o(o)=1 AND er 
sp=er AND sp=1 THEN 60 SUB 5670 
: LET piesp=p1esp+1: 60 SUB w: F 
AUSE +: 60 TO 5690 

5656 IF q(q)=1 AND o(0)=1 AND er 
sp=er АМО sp=0 THEN 60 SUB 5675 


о‹о)=1 AND er 
5670: LET pie 
м: FAUSE t: G 


AND 
SUB 


w: 


o(o)=1 AND er 
5675: LET pie 
PAUSE t: GO TO 


: LET ріе=ріе+1: 60 SUB w: PAUSE 
t: GO TO 5690 
5670 ЕКІМТ АТ 11.04" LOS ғ 
ARES SON MIOS “: RETURN 
5675 PRINT AT 11,03" LOS РА 
RES SON TUYOS! “: RETURN 
5680 PRINT АТ 11.0; TE GA 
NO LOS FARES! “: RETURN 
5685 PRINT AT 11,03" ME GA 
NAS LOS PARES “: RETURN 
5690 1F totsp>=25 THEN 60 ТО 65 
оо 
5695 IF tot>=25 THEN БО TO 6600 
5700 IF moju=1 THEN PRINT АТ 11 
ТЫ NO HAY JUEGO 

": PAUSE t: 60 TO 5800 


5703 1F egosp=1 AND cantsp=31 TH 


ЕМ PRINT AT 11,03" ТЕ 
NGO 31 ": LET piesp= 
piesp+3: GO SUB и: PAUSE t: 60 T 
0 5790 

5706 IF ego=1 AND cant=31 THEN 
PRINT AT 1105” TIENES 
31 ": LET pie=pie+Z: 
60 SUB w: PAUSE t: 60 TO 5790 


5709 IF egosp=1 AND cantsp>31 TH 


EN PRINT AT 11,0," TE 
NGO JUEGO "z ПЕТ piesp= 
piesp+2: 60 SUB w: PAUSE +: 60 T 
0 5790 

5712 IF ego= 1 PND cant>21' THEN 
PRINT AT 11, TIENES 


JUEGO ": LET ріе=р1е+2: 


bÛ SUR we 60 ТО 5790 
5715 ЕКІМІ "JUEGO, PIED 
AS AFOS [ ADA: 1: FAUSE t 


5718 IF зи=о HEN 60 TO 5750 


5721 IF 
НЕМ 60 
р+уи+5: 
5790. 

5722 ІҒ 


AND cant<>31 Т 
LET piesp=p1es 
PAUSE +: 60 TO 


cantsp=31 
SUB 5740: 
50 SUB и: 


cant=31 AND cantsp<>31 Т 


НЕМ 60 SUB 5745: LET pie=pie+ju 
+3: 60 SUE w: PAUSE t: 60 TO 579 
о 


5725 IF cantsp=32 AND cant=31 AN 
D sp=1 THEN 60 SUB 5740: LET pi 
esp=piesp+ju+3: БО SUB w: PAUSE 
t: 60 ТО 5790 

5724 1F cantsp=31 AND cant=31 АМ 
D sp=0 THEN 60 SUB 5745: LET pi 
e=pie+ju+3: 60 SUB и: PAUSE t: 6 
O TO 5790 

5725 1F cantsp=32 AND 
OR cantíi>32) THEN BD 
LET piesp=piesp+ju+2z: 
PAUSE +: 60 TO 5790 
5726 IF cant=32 AND 
OR сапёѕр< 252) THEN 
z LET pre=pie+ju+2: 
USE t: 60 TO 5790 
5727 1F cantsp=cant AND sp=1 THE 
N 50 SUB 5740: LET piesp=p1esp+ 
зи+2: 60 SUB w: PAUSE t: 60 TO 5 
790 

5728 1F cantsp=cant AND sp=0 THE 
№ БО SUB 5745: LET pre=p1e+ju+2 
: GO SUB w: PAUSE t: 60 ТО 5790 
5729 IF (cantsp<>31 ОК cantsp:>3 
2) AND (сапъ< >51 ОК сап%< >52) АМ 
D cantsp+cant THEN 60 SUB 5740: 
LET piesp=p1esp+ju+2: 60 SUB w: 


(cantí>31 
SUB 5740: 
50 SUE и: 


{сап&ер< >51 
60 SUB 5745 
50 SUB w: РА 


PAUSE t: 60 TO 5790 
5730 IF (cantsp<>31 ОК cantsp<53 
2) AND (cant<>31 ОК сапе5>52) ам 


D cant>cantsp THEN 60 SUB 5745: 


LET pie=pie+ju+2: GO SUB w: PAU 
SE t: GO TO 5790 
5740 FRINT AT 11,03" те: S 
ANO EL JUEGO "s RETURN 
5745 PRINT AT 11,05" МЕ 6 
ANAS EL JUEGO "s RETURN 
5750 IF cantsp»cant THEN 60 SUB 
5780: LET piesp=piesp+2: 60 SUE 
и: PAUSE t: GD TO 5790 
5753 iF cant>ocantsp THEN 60 SUB 
5785: LET р1е=р1е+2: 60 SUE и: 
PAUSE t: 60 ТО 5790 
$755 (F cantsp=cant AND sp=1 THE 


м со SUB НО: LET piesp=p1esp+ 


bU SUE и: FAUSE t: 60 IG 5790 
5757 1F cantsp=cant AND sp=0 THE 
N 60 SUB 5785: LET pie=pie+2: 6 


О SUB w: PAUSE t: 60 10 5790 
5780 PRINT AT 11,03% EL 9 
ОЕБО ES МІП “: RETURN 
5785 FRINT AT 11,0 EL JU 
ЕБО ES TUYU “: RETURN 


5790 IF totsp>=25 THEN 60 TO 65 


5795 IF tot?=25 THEN 60 TO 6600 
50 TO 5900 


5800 IF nto=1 THEN 60 TO 5820 
5803 IF ntosp=1 THEN 60 TO 5825 
5806 PRINT AT 11,03" PUNTO, FIED 


RAS APUSTADAS Тер : PAUSE t 
5809 IF pu=0 THEN 60 TO 5850 
5812 IF cantsp»cant THEN PRINT 
AT 11,03" TE GANO EL PUNT 
о LET piesp=piesp+pu+1 
: GO SUB PAUSE t: 60 TO 5890 
5815 IF cant>cantsp THEN PRINT 
AT 11,03" ME GANAS EL PUNT 
D z LET pie=pie+pu+1: GO 
SUB w: PAUSE t: GO TO 5890 

5816 IF cantsp=cant AND sp=1 THE 
М PRINT АТ 11,0%" ТЕ GANO 
EL FUNTO “: БЕТ р1еѕр=р 
іеѕр+ри+1: 50 SUB и: PAUSE t: 60 
TO 5890 

5817 1F cantsp=cant AND sp=0 THE 


N PRINT AT 11,С ME GANA 
S EL PUNTO "+ LET р1е=ріе 
+ри+1: 60 SUB и: PAUSE t; 60 ТО 
5890 

5820 PRINT AY 11,0," Е EL P 
UNTO ES TUYO LET pie=p 
1е+1: 60 SUB w: PAUSE t; 60 ТО 5 
890 

5825 FKINT АТ 11,0" ERE 
UNTO ES MIO! “+ LET ръевр 
тръезр+1: 60 SUR и: PAUSE t: GO 
то 5890 

5850 IF cantsp+cant THEN PRINT 


АТ 11,05" EL PUNTO ES MÍO 
"s LET ріеѕр=ріеѕр+і: 5 

O SUB w: FAUSE t: 60 TO 5890 

5853 IF сапі>сапіѕр THEN PRINT 


АТ 11,03" EL PUNTO ES TUYO 
"s LET pie=pie+iz 60 SU 
B w: PAUSE t: 60 TO 5890 


5856 IF cantsp=cant AND sp=1 THE 
N PRINT AT 11,0;" EL PUN 


Т 


TO ES MIÓ ча 
іеѕр+1: GO SUB и: 
5890 

5859 IF cantsp=cant AND sp=0 THE 


LET piesp=p 
PAUSE t: GO TO 


N PRINT АТ 11,0%" EL PUN 
TO ES TUYO LET ріе=ріе 
жі: 60 SUB w: PAUSE %: 60 ТО 589 
о 

5890 IF totsp>=25 THEN 60 ТО 65 
оо 

5895 IF tot>=25 ҮНЕМ 60 10 6600 
5900 PRINT АТ 11,03" VAMOS A 
DAR NUEVAS CARTAS — " 
5910 FOR n=O TO 4 

5912 PRINT АТ n,8; PAPER 43" 
5919 NEXT п 

5922 FOR n=15 ТО 

5925 PRINT АТ п,8; PAPER 4:" 

6 

5931 NEXT п 

5934 LET sp=sp+1 

5937 IF sp>1 THEN LET sp=0 

5940 GO TO 150 

5000 REM RUTINA APARICION 

CARTAS SPECTRUM 

6003 LET 1-0 

6009 FOR n=5 TO 8 

6012 FOR m=1 TO 5 

6015 PRINT PAPER 73AT п,9%1;" 
6018 NEXT m 

6021 PLOT 71+8ж1,168: DRAW 25,0: 
DRAW 0,-41: DRAW -25,0: DRAW O, 
41 

6024 ТЕ аФ(п) =" т" THEN LET іпк= 
4 

6027 IF аФ(п) =" {" THEN LET іпк= 
1 

6030 ДЕ аж‹п)="@" THEN LET ink= 
5 

6033 IF ds(m)="%w" ҮНЕМ LET ink= 
2 

6036 PRINT FAFER 7; INK OAT 2, 


9+1|4с3(п) ЗАТ 2,951; INK inksdSin 
) 

6039 PRINT РАРЕК 7; INK 1пкзаТ 

4,11+149й5 (п) АТ 5,11+1; INK ОҙсФ 
tm) 

6042 
5045 
6045 
5050 


LET 1=1+4 
ВЕЕР „1,40 
МЕХТ п 
RETURN 


6500 PRINT FLASH 1;АТ 11,03" 
ТЕ HE GANADO LA PARTIDA! > 
6503 PAUSE t 

6506 60 ТО 7000 

6600 PRINT АТ 11,03" 

ANADO LA PARTIDA 5 


ME HAS G 


6603 PAUSE t 
6606 БО TO 7000 
7000 CLS : PRINT AT 11,03" JUG 
AMOS OTRA PARTIDA? S/N ": PAU 
ЗЕ O 
7003 IF ІМКЕҮФ="5" THEN 60 TO 1 
оо 
7006 IF ІМКЕҮФ-"М" THEN PRINT А 
Т 11,0;" ss ADIOS: t š 

"s PAUSE t: RANDOMIZE US 
RO 


7009 1F 1МКЕҮФ<>"5" 
N" THEN 60 TO 7000 


OR ІМКЕҮФ< >" 


FIGURA 2 
Tabla de caracteres gráficos 
БИ шу Т 


ВЕСТЕРН ч РСЕ 


5 REM CARGADOR DE FIGURAS 

10 FOR n=65368 TO 65431 

20 READ a 

50 POKE n,a 

40 NEXT n 

50 SAVE "figuras"CODE 65568, 64 

DATA 0, 124, 124,56,16,16,56, 

о 
70 рата 
во рата 
90 DATA 

DATA 


0,16,16,16,16,56,16,16 
0,24,60,60,60,60,24,0 
0,96,112,56,28,12,6,2 
129,90,36,155,165,36,9 
0,129 
110 DATA 
120 DATA 
130 DATA 


0,46,106,42,42,42,46,0 
0,36,108,36,36,36,36,0 
0,46,106,34,36,40,46,0 


ЕЦ 


Este programa nos permite dis- 
poner de un sencillo procesador de 
textos de uso fácil pero con carac- 
terísticas muy potentes. 

Una de las característica más in- 
teresantes es que está escrito en 
BASIC usando la ampliación del 
sistema operativo publicada en el 
número 13 de esta misma revista. 
Esto permite usar 64 columnas 


19 REM "F R D C E X 
ARANA SOFTWARE 


roca 


conservando la estructura del BA- 
SIC, lo que permite modificar y 
ampliar el programa. 

Su uso es sencillo. Al cargar el 
programa (habiéndolo tecleado y 
salvado previamente con SAVE 
«PROCEX” LINE 1) aparece un 
menú principal de ocho opciones. 
La primera entra en el editor, la se- 
gunda nos saca el texto por impre- 


1985 PARA 


90 РКІМТ АТ 3,17; 
К ТЕХТ0"ҘАТ 5,17;"2.- 


sora, la tercera borra el texto del 
editor, la cuarta y quinta graban y 
leen el texto de cassette, la sexta es 
un pequeño menú de ayuda, la 
séptima cambia los colores para 
que sean más agradables a la vista 
y por último la octava termina el 
programa y nos devuelve al BA- 


Dentro del editor existen cuatro 
teclas de función (por desgracia las 
flechas de movimiento no las toma 
en consideración). EDIT vuelve al 
menú principal, CAPS LOCK 
pone en mayúsculas, TRUE VI- 
DEO pasa a minúsculas y DELE- 
TE, como es usual, borra el carac- 
ter habitual al que se encuentra el 
cursor. 


La salida por impresora está pre- 
parada para ZX Printer o GP 50, 
para otras habrá que realizar algu- 
nos cambios entre las líneas 420 y 
520. En especial habrá que pasar a 
MODE 0 antes de empezar y 
MODE 1 al terminar, asi como 
sustituir los PRINT por LPRINT 
y modificar los saltos de línea. Esto 
variará con cada impresora y re- 
sultará fácil en la mayoría. 


ESCRIBI 
IMPRESORA 


las 


20 LET 9=0: LET ant=40000: LET "¿AT 7,17;"5.- BORRADO DE TEXT 
Жіп-40000: LET direcc=40000: GO О";АТ 9,175"4.— SAVE"; AT 11,17; 
TO 50 "5.- LOAD";AT 15,17;"6.- INFOR 
ЗО IF 1221 THEN CLS : LET 1-0 MACION";AT 15,17;"7.- CAMBIO CO 


: LET с=0 LORES";AT 17,17:"8.- SALIDA FRO 
40 FRINT “ОАТ O, GRAMA" 
“03AT 1,0; "LINEA: "¿AT 1, 100 PRINT АТ 21,0; INVERSE 13" 
„ 10; "COLUMNA: "¿AT 1,.19:с:АТ 1,23 PROCEX (С) Jose Antoni 
3 "DIRECCION: "¡AT 1,34;direcc;AT o Rodriguez 85 Ver. 1,0 £ 
1,40; "Oper aci on: ESCRIBIR TEXTO": 110 LET пеп-(РЕЕК 23730+ (256XPE 
RETURN 1)) (PEEK 2Z6SZ+(256*FEEK 
50 MODE 1 3654)): FRINT АТ 19,50; "MEMORI 
60 РАРЕК 1: BORDER 1: INK 7: С BRIGHT 1;тет 
LS 120 PRINT “O;AT 0,0; "Орегастоп: 
70 FOKE 23658,0: LET 1=0: LET "а BRIGHT 1; “MENU GENERAL. 
c=0: LET direcc=40000 Pulsa una opcion": PAUSE 0: LET 
БО PRINT AT 1,17; BRIGHT 1; FL 9%-ІМКЕҮ% 
- 130 ТЕ a$<"1" ОК a$>"8" THEN G 


ASH 13" 
" 


MENU GENERAL DE OPCIONES 


O TO 120: 


ELSE LET a=VAL аз 


140 ON a GO TO 150,420 
710,770,820,870 

150 КЕМ ESCRIBIR TEXTO 
160 LET direcc=fin+1: CLS 
170 РОКЕ 25658,0: FRINT “0 
Щи 
== 

180 60 SUB 880 

190 PRINT AT 1,с;"_": ВЕЕР .01, 
° 

200 PRINT “ОАТ 1,О;"11пеа:”;АТ 
1,7313AT 1,1 "Columna: "¿AT 1,1 
9:с;АТ 1,25; "DIRECCION: "¿AT 1,34 
idirecc;AT 1,40; "Operacion: ESCRI 
BIR TEXTO" 
210 PAUSE О: 
ВЕЕР .01,0 
220 IF a=6 THEN 
FRINT “ОҙАТ 0,62; 
230 IF a=4 THEN 
PRINT “Оҙат 0,62; 


LET a=CODE ТМКЕУ$: 


РОКЕ 23658,8: 
INVERSE 1; "С" 
FOKE 23658, 
INVERSE 13"L 


240 IF THEN CLS : 60 TO 60 

250 IF 2 THEN 60 TO 210 

260 IF c>63 THEN LET с-О: LET 
1=1+1: 60 SUB 30: 60 TO 300 

270 IF c=60 THEN ВЕЕР .02 

280 ТЕ a=13 THEN PRINT АТ 
" и: LET c=0: LET 1=1+1: РОКЕ 9 
ігесс,15: LET direc ігесстіс P 
RINT “O¡AT 1, во SUB 


PRINT АТ 1,c;"_ 60 TO 210 
290 IF a=12 THEN 60 TO 350 
300 PRINT АТ 1,c;CHR$ а 
310 FOKE direcc,a: LET direcc=d 
irecc+1: LET c=c+1 

20 LET fin=direcc 

550 PRINT “ОҙАТ 1,7313" "¡AT 1, 
19:с:" "¡AT 1,34;direcc;" " 

340 GO TO 210 

350 LET c=c-1 AND c> FRINT AT 
1,с;"_ "33 LET direcc=direcc-1 
360 IF 1<=0 THEN LET 
370 РАМТ “OJAT 1,7513" ' 
193c3" "¡AT 1,343direcc;” 
380 ТЕ direces 
ігесс=40000 


390 IF с=0 AND 120 THEN PRINT 
АТ 1-65 "э LET c=63: LET 1=1-1 
AND 120: 60 TO 350 


400 60 TO 210 


410 FAUSE О: STOF 

420 КЕМ IMPRESORA 

420 CLS : FRINT АТ O; 

440 LET с=0: LET 1 FOR n=400 
оо TO fin 


450 IF PEEK n=13 THEN LET 1=1+ 
1: LET с-о 
460 IF 
2 LET € 
470 PRINT АТ 1,.csCHR$ (РЕЕК n): 
LET c=c+1 


1 THEN CLS z LET 1=0 


LET 


500 IF 1221 THEN 
LET 1=0: LET с=0 
510 NEXT п: СОРУ 
520 CLS : 60 TO 60 
530 REM BORRADO DEL TEXTO 

5 BORDER 2: PAPER 2: МК 7: С 
Ls 

550 FRINT BRIGHT 1; FLASH 1;АТ 
10, 20; "BORRADO DEL TEXTO" 

560 INFUT “Confirmacion de la o 
rden (Si /No)> Па 

570 IF а$="МО" OR а%="по" ОК а? 
="No" OR a$="n" THEN CLS : 60 T 
0 во 

580 ТЕ a$="Si" OR а8-"з1" ОК a$ 
="SI" OR a$="s" THEN FOR п=4000 


COPY": CLS s 


O TO 41000: FOKE п,0: PRINT AT 2 
1,0341000-n3" "2: NEXT n: LET dí 
геср=400‹ 

590 LET fin=40000 

600 BORDER 7: РАРЕК 7: INE О: С 
LS z PRINT АТ 10,20; BRIGHT 1; F 


LASH 1; "BORRADO COMPLETO” 
610 ВЕЕР 2,0: FAUSE 106 
1: FAPER 1: INK 7: CLS : 

50 
620 КЕМ SAVE а cassette 
430 BORDER 5: PAFER 5: INE О: С 

(5 
640 INFUT "Nombre para SAVE: ",, 
sss 25 
650 FRINT AT 10,20; BRIGHT 1; F 

LASH 1; "екавастом TEXTO"; АТ 12,2 

O; "FULSA UNA TECLA” 

660 PRINT AT 14,20 


BORDER 
во то 


¡"Tome пота:" 


Hogramas © 


"LONGITUD: "; (+1п-40000 
„о 

670 SAVE а СОПЕ 40000, (fin-4000 
о» 

680 CLS : PRINT АТ 10,20; BRIGH 
T 1; FLASH 1; "GRABACION EFECTUAD 
А":АТ 12,20; "QUIERES EFECTUAR VE 
RIFY": PAUSE O 

690 ТЕ INKEY$="s" 
a$CODE 40000, (fin-40000): 
BORDER 1: FAPER 1: ІМЕ 7: 
AT 10,20; BRIGHT 1; FLASH 
ТЕУ CORRECTO": ВЕЕР 1,30: 
50 TO 20 

700 BORDER 1: 
Ls : 60 TO 40 

710 КЕМ LOAD desde cassette 

720 BORDER 1: FAPER і: INE 7: С 
Ls 


THEN VERIFY 
св: 
PRINT 
1: "VER 
CLS 2 


РАРЕК 1: INK 7: С 


INFUT "LONGITUD: ";1ong 

740 PRINT AT 10,20; BRIGHT 1; F 
LASH 1; "INTRODUCE LA CINTA";AT 1 
2,20; "Y PULSA FLAY.": LOAD "COD 
Е 40000.1опа 

750 LET #1п=40000+1 ong 


760 CLS : GQ TO 60 
770 REM INFORMACION 
780 CLS : FRINT АТ 0,0;"Informa 
cion:"**”*"Las funciones de las t 
eclas en el editor son las sigui 
entes:"??>" CAFS SHIFT + 1 (ed 
it)............... Vuelve al MEN 
u CAPS SHIFT + 2 (ca 
ps 1оск)...... .... MAYUSCULAS 
CAPS SHIFT + 3 ¿“tr 
це video)......... Minusculas 
CAFS SHIFT + 0 (de 
lete)............. Borrado 


ЕМТЕК............. 
-.. NUEVA LINEA” 
OPCIONES DE 
""1.- Editor 64 ctes”” 
Impresion "”"2.- Borrado de 
1 texto””"4.- Grabacion texto"”” 
5.- Carga del texto"”"6.- Inform 
асісп"?”"7.- Cambio de los colore 
s (O а 7)"”"B.— SALIDA del progr 
ата" 
ВОО PRINT АТ 21,0; INVERSE 1; В 
RIGHT 13" Pulsa una tecla para 


790 PRINT 
Ú EDITORS! 


па 


— 


volver al MENU GENERAL о С para 
СОРҮ "es PAUSE О: ТЕ INKEYS=" 
с" OR ІМКЕҮФ="С" THEN COPY + CL 
S : 60 то 60 

810 CLS : 60 TO 60 

820 REM CAMBIO DEL PAPER E INK 


830 CLS : FOR n=0 TO 7: РБІМТ А 
T п+5,5; INE п; "ABCDEFGHIJELMNOP 
ORSTUVWXYZ "AT п+5,40; INK 73" > 

"іп: NEXT п 

840 РЕТМТ АТ 17,10; "Color del F 


APEL (paper) ": BEEF 1 PAUSE 
О: LET a$=INKEYS$: ТЕ a$<"0" OR a 
$>"7" THEN 60 TO 840: ELSE LET 


paper=VAL a$ 
850 РКІМТ АТ 17,10; "Color de la 


tinta (INK) ": ВЕЕР 1 PAUSE 
O: LET a$=INKEYS$: IF a о" OR a 
%>"7" THEN 60 TO 840: ELSE LET 


imk=VAL a$ 


860 BORDER paper: РАРЕК paper: 


INK ink: CLS : 60 TO 60 
870 CLS : BORDER 7: РАРЕК IN 
ко: CLS : MODE 0: ВЕЕР .2, 5 
ТОР - 

880 LET с LET 1=0: PRINT АТ 


° 3 FOR 40000 TO tin 

890 ТЕ PEEK n=13 THEN LET 1=1+ 
1: LET с=0' 

900 IF 1>21 THEN CLS : 
з LET с-0 


LET 1-0 


910: IF c>63 THEN LET с=Оз LET 
1=1+1 

920 PRINT АТ 1,с:СНК% (РЕЕК n): 
LET сзс+1 

930 POKE 23692,255: 

940 IF c>63 THEN LET с=0: LET 
1=1+1 

950 NEXT п 

960 RETURN 

970 ON EFF L 

980 BEEP .4,0: 
0,20; BRIGHT 1; 


RROR<<<<<<" 


990 FOR n=1 ТО 100: PAUSE 2: NE 
XT п: CLS : GO TO 60 

1000 SAVE "FROCEX" LINE 10: VERI 
ЕХ". ВИЕ 


М 


: 


La versión española de Popular Computing 


LA REVISTA QUE INTERESA TANTO AL AFICIONADO COMO AL PROFESIONAL 


Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales. 


ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática. 

Ya está a la venta 
AS ест 2-2 


Cómprela еп su kiosco habitual о solicítela a: 


Bravo Murillo, 377 
7339662 


eL. /3- 
28020 - MADRID 


A 


Complete su colección de 


Todospectrun 


A continuación le resumimos el contenido de los ejemplares 


aparecidos hasta ahora. 


Núm. 1250 pts. 

Cómo usar el microdrive/Progra- 
mación Basic/Ampliación Basicare 
Rutina despertador/Variables del sis- 
tema/Entrada datos mediante másca- 
ras/Protección del sofiware/Sintoni- 
ce su Spectrum/Programas. 


Núm. 3*250 різ. 
Novedades sonimag '84/Ampliando el 
Basic/Programas para ordenar pro- 
gramas/Gráficos con el VU-3D/Len- 
guaje Forth/Archivos en microdrive; 
Programación de un interface de im- 
presora/Programas. 


Num, 5 *250 pts. 
Floppys para Spectrum/Diseño asis- 
tido por ordenador/64 Caracteres por 
línea/Juego de la vida/Pascal/Asi ha- 
cemos las portadas/Control de eva- 
luaciones/Programas. 


Núm. 2*250 різ. 

Gráficos profesionales/Desplaza- 
miento pixel a pixel/Utilización de 
rutinas/ Construcción del interface 
centronics/Programes de utilidad pa- 
ra microdrive/Rutina reset en código 
máquina/Análisis del editor de textos 
Tasword/nterfaces para impresoras/ 
Programas. 


Núm. 4+250 pts. 

De profesión: programador/Consola 
para el Spectrum/Comparación códi- 
go máquina-Basic/Análisis programa 
contabilidad /Calendario/Pasca/Pro- 
gramas. 


мат. 6*250 pts. 

Representación de funciones/Todos 
los caminos conducen a la ROM/Jue- 
gos/Pascal/ Construcción de un lápiz 
брусо/Ргодгатаз de gestión. El SITI, 
Logo: tortugas para todos/Interrup- 
ciones del Z-80/Programas. 
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Para hacer su pedido, rellene este cupón HOY MISMO 
Todospectrun Bravo Murillo, 377 
Tel. 733 96 62 - 28020 MADRID 


Ruego me envien los siguientes ejemplares atrasados de TODOS- 
PECTRUM .. 


Por favor envienme ..... 
ejemplares de TODOSPECTRUM, al precio de 600 pts. más gastos de envio. 


El importe lo abonaré 
О POR CHEQUE D CONTRA REEMBOLSO O CON MI TARJETA DE 
CREDITO O AMERICAN EXPRESS O VISA D INTERBANK 


Número de mi tarjeta: [ITT [ ПІ 
Fecha de caducidad 


Código máquina 
para ampliar el BASIC 


y envielo а: 


=.. al precio de 250 pts 
. tapas para la encuadernación de mis 


Firma 


DIRECCION 
CIUDAD 
PROVINCIA 


(cada tapa es para 6 ejemplares) 


[>] Aunque hace tiempo que poseo 
mi ordenador Sinclair QL, en el 
número 15 de su revista, más con- 
cretamente en la sección dedicada 
a dicho ordenador, se citan algunas 
estructuras de las que ciertamente 
no tenía conocimiento, tales como 
WHEN EOF... END WHEN y 
WHEN ERRor... END WHEN, 
desearía pedirles que a ser posible 
me proporcionasen una descrip- 
ción más detallada de dichas es- 
tructuras. Gracias anticipadas por 
su colaboración. 


Sergio Montoro 
Madrid 


[R] мисһов lectores han manifes- 
tado un interés similar sobre estas 
estructuras y sobre su modo de 
uso, por lo que pasaremos a descri- 
birlas brevemente, no sin antes de- 
cir que la razón de que no estén 
documentadas en el manual es que 
su funcionamiento no es del todo 
correcto y a veces dan problemas, 
por lo que su uso debe hacerse con 
mucho cuidado. 

La instrucción WHEN ERRor 
END WHEN se utiliza para de- 
tectar errores y corregirlos. Se debe 
situar al principio del programa de 
modo que el ordenador se «entere» 
de su existencia antes de producir- 
se el error, Cuando se produce el 
error, el ordenador en lugar de pa- 
rarse salta a esta rutina y despu 
de ejecutarla salta a la instrucción 
siguiente a la que produjo el error. 
Dentro del WHEN ERR es nece- 
sario saber qué tipo de error se ha 
producido y dónde, de modo que 
podamos corregirlo. Para ello exis- 
ten dos variables. ERR_LIN nos 
da la linea que ha producido el 
error y ERR_NUM da el número 
de este según la tabla que aparece 
al final del manual. 

La otra estructura es WHEN 
EOF...END WHEN. Está destina- 
da а ser usada al leer ficheros 
hará que el programa salte a ella 
cuando intentemos leer de un fi- 
chero y no haya más datos en este. 
Al igual que en el caso anterior 


debe estar situada antes de la ope- 
ración de lectura de ficheros 

Esperemos que con esta explica- 
ción queden aclaradas todas las 
dudas de estas estructuras, y recor- 
damos, una vez más, que si no 
aparecen en el manual es porque 
no funcionan del todo bien, por lo 
que se debe tener mucho cuidado 
en su uso. 


Г ме gustan mucho los comenta- 
rios sobre hardware comercial, 
pero me gustaría que, además de 
seguir criterios de actualidad, los 
hicieran con un poco de orden, 
como ya empezaron a hacer (¿por 
qué no han seguido?) con los lápi- 
ces Ópticos, para poder comparar 
unos con otros. А ver cuándo pu- 
blican comentarios sobre impreso- 
ras е interfaces centronics. 

Otro tema que me parece muy 
interesante y del que tampoco han 
hablado es sobre los fallos de la 
ROM del Spectrum y que, a pesar 
de lo bien realizada que está, se les 
colaron una buena cantidad; por 
ejemplo, de los que habla el doctor 
Tan Logan en su libro The comple- 
te Spectrum ROM disassembly so- 


bre el manejo del número 65535, 0 
los que se producen cuando se em- 
plean potencias (todo lo relaciona- 
do con ellas, también se producen 
con SQR o FN) o los fallos de 
SCREENS o VAL. 


Francisco Romero 
Madrid 


[к] romamos nota de todas tus su- 
gerencias y deseos para con nues- 
tra revista y esperamos en breve los 
veas cumplidos. En lo referente а 
los lápices ópticos, el paro momen- 
táneo de la serie que les veníamos 
dedicando ha sido motivado por el 
simple hecho de que no dispone- 
mos de otros modelos de este peri- 
férico, y es evidente que no pode- 
mos hacer una crítica de un pro- 
ducto que no tenemos delante. En 
cuanto las casas distribuidoras co- 
rrespondientes se decidan a pro- 
porcionárnoslos, prometemos con- 
tinuar tratando este interesante 
tema. 

En cuanto a las erratas de la 
ROM, estamos de acuerdo contigo 
en que, aunque no sean muchas, es 
un tema que vale la pena conocer a 
fondo. No es esta, en todo caso, la 
sección apropiada para tratar un 
tema tan extenso, por lo que ha- 
brás de esperar a que podamos 


IA MS 


abrirle un hueco en la revista en 
alguno de los números siguientes. 


[Р]Еенсйо a esta revista y al autor 
del programa publicado en el n.° 
13 con el nombre de «Un nuevo 
Operativo para el Spectrum», que 
incluye siete nuevos comandos al 
BASIC de éste. Lo considero de 
gran calidad, y además eleva al 
BASIC del Spectrum al nivel de 
otros ordenadores de mayor precio 
y calidad. No obstante, al verlo, 
eché de menos el comando DELE- 
TE, que, como ya sabrán, sirve 
para borrar bloques de programa 
BASIC. Su sintaxis habitual suele 
ser: 


DELETE n1,n2 


siendo п1 el número de la primera 
línea que se desea borrar y n2 el de 
la última línea que ha de ser borra- 
da. 

Mis precarios conocimientos so- 
bre código máquina me impiden la 
realización de este implemento, 
pero envío mi propuesta a su autor 
о a cualquier hábil programador 
para que se anime a incorporar 
este comando al ya potente progra- 
ma de Manuel Arana. 


Fernando Corres 
Vitoria (Alava) 


[к] Transmitimos desde estas lí- 
neas tu petición a todos nuestros 
lectores y les pedimos que se ani- 
men a comunicarnos cualquier 
modificación o implemento de in- 
terés general, que pueda mejorar, 
no sólo este, sino también al resto 
de los programas que mes a mes 
venimos publicando. Caso de que 
algún amable lector haga eco a 
esta llamada, prometemos darle 
prioridad para que sea publicada 


[ме han dicho que el Interface 
1, que poseo desde hace unos me- 
ses, además de añadir todos los co- 


mandos que especifica el manual, 
permite usar CLS especificando el 
canal en que se desea el borrado. 
Lo he probado con el canal 2 para 
la pantalla principal y con el O y 1 
para la parte baja y no funciona. 
¿A qué se debe esto? 


Juan Luis Berenguer 
Aguafría (Almería) 


Ме, efecto, el Interface 1 incor- 
pora no ya uno sino dos nuevos co- 
mandos que no aparecen en el ma- 
nual: CLS$ y CLEARS, pero en 
ellos no podrás especificar el nú- 
mero del canal, ya que su cometi- 
do es el siguiente: 

CLS$ (sin nada detrás) borra el 
contenido del archivo de presenta- 
ción visual y coloca los cursores de 
alta y baja resolución a sus respec- 
tivas esquinas (hasta aquí lo mis- 
mo que CLS), pero además coloca 
en las correspondientes variables 
del sistema y en la totalidad del ar- 
chivo de atributos lo mismo que si 
se hubiera inicializado la máquina. 
Es decir pone BORDER 7, PA- 
PER 7, INK 0, FLASH 0 e IN- 
VERSE 0. Las aplicaciones son 
obvias, por lo que sobran los co- 
mentarios. 

CLEARS (también sin nada de- 
trás) cierra todas las corrientes que 
hubiéramos abierto y restablece 
las que van del 0 al 3 a los canales 
asignados habitualmente (como si 
acabáramos de conectar el ordena- 
dor) pero respetando las variables 
y el archivo de pantalla. ¡Ojo!, este 
comando no debe utilizarse nunca 
como sustituto de CLOSES, ya 
que los datos que se encuentren en 
un buffer a medio llenar se perde- 
rían sin llegar a su destino. 
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